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r) 
IDENTIFICATION 
PRODUCT CODE: AC=T433A-MC 
PRODUCT NAME: CNDVCAO DLV11-F OFFLINE TEST 
PRODUCT DATE: DECEMBER, 1982 
AUTHOR: ODES CHOATE 
MAINTAINER: DIAGNOSTIC SERVICES/ISS 


ba INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
OTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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8233 
235 NOTE: CVDVCB DIAGNOSTIC WAS MODIFIED TO WORK ON 11/21 PROCESSOR BY LOWERING 
B26 PRIORITY 7 TO 6 AND ALSO ADDING A CALL TO CNMAC2.SML TO INIT BRKVEC 
| 8257 AND LKVEC. AND WAS RENAMED TO. CNDVCA. 
| 8239 TABLE OF CONTENTS 
| 824 1.0 GENERAL PROGRAM INFORMATION. 
8244 1.1 PROGRAM PURPOSE (ABSTRACT). 
8245 1.2 SYSTEM REQUIREMENTS. 
| 8246 1.3 RELATED DOCUMENTS AND STANDARDS. 
| 8247 1:4 DIAGNOSTIC HIERARCHY PREREQUISTES. 
8248 1.5 ASSUMPTIONS. 
| 
| 8250 
: 8251 2.0 OPERATING INSTRUCTIONS. 
8253 2.1 LOADING AND STARTING PROCEDURES. 
8254 2.2 SPECIAL ENVIRONMENTS. 
8255 2.3 OPERATIONAL SWITCH SETTINGS 
8256 2.4 PROGRAM OPTIONS. 
8257 2.5 EXECUTION TIMES. 
8259 
8260 3.0 ERROR INFORMATION. 
8262 3.1 ERROR REPORTING PROCEDURE. 
gee; 3.2 ERROR HALTS. 
8265 
8266 4.0 PERFOMANCE AND PROGRESS REPORTS. 
8268 4.1 PERFORMANCE REPORTS. 
a 
8271 5.0 DEVICE INFORMATION TABLES. 
8558 
6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES 
| 


SEQ 0002 
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CNDVCA.P11 27-DEC-82 11:36 SEQ 0003 
8276 
este 1.0 GENERAL PROGRAM INFORMATION. 
8279 
Bsee 1.1 PROGRAM PURPOSE (ABSTRACT). 
8282 THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
8283 DLV11=F SERIAL LINE INTERFACE. THE USER CAN SELECTIVELY 
8284 ENABLE AND DISABLE TESTING OF THE OPTIONS BY ALTERING THE 
8285 CONTENTS OF ‘S$USER*. THE DIAGNOSTIC > DESIGNED TO TEST AND 
8286 DETECT FAULTS TO THE LOGIC LEVEL (NOT THE CHIP LEVEL). 
8287 THIS TEST OPERATES ON UP TO SIXTEEN(16) IDENTICALLY CONF IGURED 
8589 DLV11-F SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 
8290 177560 -CONSOLE INTERFACE DEVICE ADDRESS 
8291 175610 -FIRST SERIAL LINE ADDRESS OF 15 CONSECUTIVE 
8292 SERIAL LINE DEVICES. 
8293 
8294 
8295 60 = VECTOR FOR CONSOLE DEVICE INTERFACE. 
8507 300 = VECTOR FOR FIRST OF 15 DEVICES. 
8298 THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP=11 WITH 4K OF 
8299 MEMORY AND A DLV11-F (LSI-BUS) MODULE. IT CAN RUN UNDER XXDP, 
8300 APT, AND ACT MONITORS, AND ON PROCESSORS WITH NO HARDWARE 
8301 SWITCH REGISTER. A POWER FAILURE WILL CAUSE THE DIAG- 
Sone NOSTIC TO RESTART. 
tied 1.2 SYSTEM REQUIREMENTS. 
8507 HARDWARE REQUIREMENTS: 
8308 ANY PDP-11 rhe PROCESSOR 
8309 4K MEMORY - MIN 
Bie A SPECIAL WRAP CONNECTOR OR EQUIVALENT (OPTIONAL) 
8312 
8313 SOFTWARE REQUIREMENTS: 
8315 
8316 THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 
8317 FOLLOWING WAYS: 
8318 STAND ALONE 
8319 vITH APT ace bs 
8320 WITH ACT MONITOR 
Be55 WITH XXDP MONITOR (CHAINABLE) 
S352 1.3 RELATED DOCUMENTS AND STANDARDS. 
8325 DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175=003-009-02 
8326 APT MD-11-DZZMA 
8327 ACT AUTOCAT=11-QZAUB 
8328 SYSMAC MD-11-DZQAC 
8329 
8330 
8331 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 
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2.0 


2.1 


2.2 


2.3 


NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
inatito MEMORY, AND BUS ARE ASSUMMED TO BE FULLY 


ASSUMPTIONS. 


THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZED 
LOCATION *SUSWR® AND ‘$DEVM' TO THE PROPER VALUES. 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
Bape PROCEDURE FOR PDP=11 ABSOLUTE BINARY FORMATTED 


THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 8 IN THE SWITCH REGISTER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER BYTE. (NOTE: ALL eats PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS.) 


SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT,ACT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A_ SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED ee 
ALLOWS THE USER THE SAME SWITCH OPTIONS AS _ THE 
HARDWARE SWITCH REGISTER. IF THE HARDWARE SWITCH 
REGISTER DOES_NOT EXIST OR_IF ONE DOES AND IT CONTAINS 
ALL ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
(LOC. 176) IS USED. 


CONTROL: 

THIS — ALSO SUPPORTS THE rere rae OF THE SOFTWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER 
DATA INTO LOC. 176 AT SELECTED POINTS WITHIN THE 


SEQ 0004 
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2.4 


PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE "NEW=" HAS BEEN TYPED Ln THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER BE LOADED INTO LOC. 176 FOLLOWED BY 
A_ <CR>. (ONLY NUMBERS BETWEEN a WILL BE ACCEPTED). 
LEADING 2EROS” NEED NOT BE TYPED, AND IF MORE THAN 
et _ TYPED THE LAST 6 WILL CBE USED. IF A <CR> 
IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 

REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS_DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED “wy. THEN A QUESTION — (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING act PREVIOUS INPUT). 


DYNAMIC SWITCH REGISTER 


BIT 15 = HALT ON ERROR 
14 = LOOP ON TEST 
13 = INHIBIT ERROR TYPEOUTS 
12 = (UNUSED) 
11 = INHIBIT i 
10 = BELL ON ERR 
9 = LOOP ON ERROR 
§ - LOOP ON TEST _IN SWR<7:0> 
7:0 ~ TEST NUMBER TO LOOP ON (USED WITH BIT 8) 


PROGRAM OPTIONS. 


THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE DLVI1-F°S. IT 
REQUIRES THE ADDRESS OF THE FIRST RCSR | eee AT ‘S$BASE*) AND 
ITS INTERRUPT VECTOR (STORED AT ‘S$VECT1'); AND WILL BE ABLE 
TO ADDRESS ANY DLV11-F STARTING AT THE SPECIFIED BASE ADDRESS 
UP TO 16 CONSECUTIVE DEVICES: 
EXAMPLES: $BASE: 175610 

SVECTI: 300 


THE PROGRAM WILL BE ABLE TO TEST ANY DLV11-F WITHIN THE 
ADDRESS RANGE 175610 ==> 176000 


$BASE AND $VECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 


SEQ 0005 
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8444 
8445 THE PROGRAM ASSOCIATES UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
8446 PARENTHESIS ARE OCTAL) 
8447 UNIT#O == BASE ADDRESS STORED AT ‘S$BASE' 
8448 ASSOCIATED BASE Pt} Set STORED AT ‘S$VECT1" 
8449 UNIT#1 == BASE ADDRESS + (10) 
8450 . BASE VECTOR + (10) 
8451 : 
8452 : UP TO 
8453 ; 
8454 UNIT#14 == BASE MOORE SS ¢ (160) 
tH BASE VECTOR (160) 
8457 LOCATION *SDEVM" IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
te} NUMBERS ARE PRESENT AND WILL BE TESTED. 
erst BIT 15 BIT 14 = . BIT 1 BIT O 
8462 , CON- ! UNIT ! : | er ! UNIT ! 
8463 SOLE i 14} | 
gree eeeeeoeoeooeoe See eee eee eoonenoneo Se eeeeeonoeooooee 
8466 A BIT MAP CAN BE ENTERED AT ‘S$DEVM® PRIOR TO STARTING THE 
8467 PROGRAM. 
8468 
8469 EXAMPLE: 
8470 $BASE: 175610 
8471 $VECTOR: 300 
8472 SDEVM: 100013 
8473 
poe THE PROGRAM WILL TEST= 
8476 UNIT#O 175610 300 
8477 UNIT#1 175620 310 
8478 UniT#3 175640 330 
8479 CONSOLE 177560 60 
8480 
8481 OPTIONS 
.. Se eee a ee 2, ee tlUC”lCUR 
8483 
8484 
8485 LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 
8486 VALUES IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD 


LUE 
8487 CONF IGURATION. 
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THE DEFAULT VALUE OF $USWR IS AS FOLLOWS: 


BIT POSITION DEFINITION 


0-3 


TEST 
fg ore DEVI 


IT SET 
(ERROR BITS) BIT SET 
BIT SET 


(COM SPD) 
(BREAK) BIT 


(PROG BAUD RATE) BIT SET: : 


++ TEST WILL NOT RUN IF THIS COND 
=~ TEST WILL NOT RUN IF THIS COND 
** TEST WILL NOT RUN IF ALL OF TH 


cE 
E 


SET 


# OF DATA BITS 10(8) 
PARITY ENABLED -\(SEE_ 0 
EVEN ODD PARITY-/ NITE) 0 
COMMON SPEED 1 
oe eate bere ~~ RATE 8 


< 

xz 

> 

o 

oO 

2 

= 

m 

o- 

“4 

i=] zo 
“3m 
—2e- 
2 

a) 

“4 

> 

- 
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Mm 

J 

So 

nun 


ERROR BITS ENABLED 


E ON BITS <4:5> 


DEFAULT VALUE 


N 

110 BAUD 
YES 

NO 

NO 

NO 


NOT 
THIS DIAGNOSTIC DOES NCI TEST THE PARITY LOGIC. 


NOTE ON BITS <7:11> 
WHEN THE oat Gaeake BALD RATE OPTION IS 
ABLED THE PROGRAMABLE BAUD 


AL 
VALUE OF 110 BAUD REPLACE BITS <11:8> 
AT THE END OF THE PBR TEST.(TEST #16) 


NOTE ON BIT 14 


THIS SWITCH WHEN ON WILL ALLOW THE DIAGNOSTIC 
10 TEST IN MAINTAINCE MODE. IT IS ASSUMED 


THE DLV11-F MODULES WHEN THIS BIT IS SET. 
DLV11=F INDIVIDUAL TEST REQUIREMENTS TABLE 
y di R. 4: 5: 6: oO leaiaslenigateal oi leeleelleeisel 


See!ee! 


i iegi i 
tee! 
‘ae! 


Tie ee 

“4-4 
Ome 
ooo 
222 


ee: 


THAT 
THE MAINTAINCE JUMPER IS INSTALLED ON ALL OF 


Seeteelesieeles! 


iseieei 


beetles! 
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2.5 


3.0 


3.1 


3.2 


EXECUTION TIMES. 


EXECUTION i + i ARE FOR AN ise PROCESSOR WITH ALL he at 
NABLED ON THE DLV11-F (EXECPT FOR PROGRAMMABLE SAUD RATE), 
110 BAUD, AND NOT AT THE CONSOLE ADDRESS. 


FIRST PASS= 90 SECONDS 
ADDITIONAL PASSES 95 SECONDS 
ADDITIONAL DEVICES 95 SECONDS 


THE TEST TIME IS BAUD RATE DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES. 


IF THE DIAGNOSTIC IS RUN AT THE CONSOLE 
ADDRESS THE RUNNING TIME IS 5 SECONDS PER PASS. 


ERROR INFORMATION. 


ERROR REPORTING PROCEDURE. 


SINCE yo DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
ERROR TYPEOUT IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


IS AS FOLLOWS: 
TEST# /ERROR# PC= nae wake Ne »VECTOR=_____ 
WHERE ALL VALUES TYPED ARE OCTA 

THE ADDRESS AND VECTOR REFER TO THE FAILING SLU'S. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15,13,10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT 


BIT 15 = CAUSES THE PROGRAM TO HALT IN THE ERROR 
LS CONTINUEING THE PROGRAM CAUSES IT TO 


BIT 13 = DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 = CAUSES THE BELL TO RING ON ERROR. 


BIT 9 = CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS. 


THE ONLY HALT IN wuts DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS_ EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


SEQ 0008 
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SEQ 0009 


4.0 PERFORMANCE AND PROGRESS REPORTS. 


4.1 PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL BE TYPED: 
CSR: e VECTOR: eERRORS: 


WHERE.'(SR:____' 
. VECTOR: — . 
AND ‘ERRORS: ~~' 


IS T 
IS THE ot pagal VECTOR 

1S THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PAS 


NOTE 
THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 
AFTER ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 
“ENDPASS#__ 
5.0 DEVICE INFORMATION TABLES. 


Ss 46 HH WMWN WwW 9 8 7? 6 5 4 3 2 1 0 


PARRA SAALLLALELAAAAAAAAAAAAAAAALALASELAS AS AALAS AAAS EAA R RADAR ALAR SARA A RAL ASAD SA SS 


RCSR« : : ; -RCVR: : H FRC VRERCVR: ’ : : : ‘ROR ! 
: ; : tACT : ; !DONE'IE ! : : ; : ‘ENB ! 
eeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeekedeeeedeeeeeteeeeeeeeeeateerereeeerees 
RBUF « ERRO: OR ‘fr fp ; ; ; ' RECEIVED DATA BUFFER ‘ 
iR !ERR ‘ERR ‘ERR ! : : ; : : 
tesenteenecentecseeceececteteetentettentessegeeseatennectenseceeteeseeseereeseese 
TCSR: ee ne BAUD !PBR ! } : 'XMIT!XMIT! ; } [Ale iene 
ATE SELECT ‘ENAB! : 2 'RDY 'IE ! ; 2 
AR TR EO IR, SO 3 BS. AE OE | SR 


TBUF : : } : : : : : : TRANSMITTER DATA BUFFER : 
i i i i i i i i i 
PTUTITITITITITITIIIITI TLL LITT ITLL LLL LLL LLL LLL LLL LLL, 


NOTE 


BLANK BOXES INDICATE vase? AND RESERVED 
BIT POSITIONS. SEE T " LISTING FOR AN 
EXPLANATION OF THE BITS 
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6.0 


SEQ 0010 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


TEST 1 ACDRESSABILITY 


THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN _ THE 
HARDWARE P=TABLE TO BE CORRECT AND THE ODOLV11-F 
RESPONDS TO THAT ADDRESS SPACE. 


TEST « BREAK = TCSRO SET, CLEAR, RESET 


TEST 5 RCVRIE = RCSR6 SET, CLEAR, RESET 


THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


TEST 6 RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


WITH A_ CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 12 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 
ESULTS _IN RCVRDONE SETTING WITHIN 


RES 4 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS 7HE BIT. 


1 


oz 
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TEST 13 RCVRDONE IS CLEARED BY READING RBUF 


TEST 14 RCVRACT = RCSR 11 = SETS WHEN A START BIT IS 
4 aa AND CLEARS WHEN RCVRDONE = RCSR 7 = 


TEST 15 OVERRUN BIT = RBUF 14 


AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME IS LESS THAN PREVIOUS. 


TEST 17 TRANSMITTER INTERRUPT LOGIC TEST 


LOGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
B) AT PRIORITY OF 0 


ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


TEST 20 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 


OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 


TEST 21 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 
” MAINTENANCE BIT SET 


TEST 22 TEST DATA THROUGH WRAP 


MODE. 


WITH BREAK SET AND COMPARE RECEIVED WITH 0. 


TEST 25 NOT A TEST = SEND BACK TO LOOP 


' 
i 
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SEQ 0012 
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NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF (R5)_ IS PART OF THE LINKAGE MECHANISM 
BETWEEN THE CALLER AND THE CALLED. 


ROUTINE: TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
INPUTS ANY BIT IN ANY REGISTER. 


HOWLONG THE MAXIMUM AMOUNT OF TIME TO 
SPEND IN THIS ROUTINE. 
WHICHBIT A MASK WITH THE BIT(S) SET THAT 


ARE TO BE CHECKED 
REG A POINTER TO THE REGISTER TO BE 
CHECKED 
SETCLR THE DESIRED RESULTS == EITHER SET 
OR CLEAR 


OUTPUT: 
THE ‘C* BIT IS SET TO INDICATE AN ERROR BUT IT 
1S TESTED BY THE IF.ERROR STATEMENT. 


ROUTINE :DATLNG 


THIS ROUTINE SETS UP A MASK FOR DATA, WITH = 


INPUT: NOTHING IS PASSED TO THIS ROUTINE BUT GLOBAL 
INFORMATION IS ASSUMED TO EXIST: 
$USWR-= THE WORD FOR SOFTWARE PARAMETERS 
DATA== A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 


OUTPUT=--= 
MASK== A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 


ROUTINE : WAIT 


THIS IS ACCOMPLISHED By INCREMENT ING & 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MICRO SEC. 


SERVICE ROUTINE: INTSRV 


THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


SEQ 0013 


A 
¢ 


r---:o 
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"INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


ROUTINE : CYCLE 
THIS ROUTINE CAUSES ADRS TO POINT TO _ THE 
ADDRESS OF DLV11-F UNDER TEST, ADRS +2 TO 
POINT TO THE VECTOR OF THE DLV11-F UNDER TEST. 
et” TRACK OF THE CURRENT DEVICE AND BIT 


SEQ 0014 
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i SY YS Sew VO YS Sw YS VTE 
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001100 


000011 


177776 
177774 


177570 
170000 
000000 
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C) 
- TITLE merit CNDVC=A 
1982 


aeeneeeenanne 


s*COPYRIGHT (C) 
>*DIGITAL EQUIPMENT CORP. 
; *MAYNARD, MASS. 01754 


: PROGRAM BY ODES CHOATE 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
3 *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


“S8TTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON cnage 

& LOOP ON TEST 

3 INHIBIT ERROR TYPEOUTS 

1 INHIBIT ITERATIONS 

0 BELL ON Te 

9 ON ERR 

8 LOOP ON Test IN SWR<7:0> 
SBTTL BASIC DEFINITIONS 


1 
1 
1 
1 


wa he OF THE STACK POINTER *** 1100 *#* 


STACK= 
-EQUIV. EMT,ERROR 3sBASIC DEFINITION OF ERROR CALL 
EQUIV I0T,SCOPE 3 sBASIC DEFINITION OF SCOPE CALL 


3 *MISCELLANEOUS DEFINITIONS 
HT= 11 


:;CODE FOR erty TAB 
OD LINE FEED 


LF= 12 ::CODE FOR 

CR= 15 [:CODE FOR CARRIAGE RETURN 

CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ::PROCESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177774 £3 STACK LIMIT REGISTER 

PIRQ= 177772 ROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 :WARDUARE SWITCH REGIST ER 

DDISP= 177570 DWARE DISPLAY REGISTE 


iorsts TS aaa opt’ START ADDRESS FOR SBC 1ive1 IS ADDED 
;*GENERAL PURPOSE REGISTER Peedat beat 
RO= 20 ENERA G 


33 L REGISTER 
Ri= %1 + OENERAL REGISTER 
R2= %2 ::GENERAL REGISTER 
R3= 3 GENERAL REGISTER 
R4= %4 GENERAL REGISTER 
R5= 33 RAL REGISTER 
K6= %6 7 GENERAL REGISTER 
R7= GENERAL REGISTER 
SP= %6 s:STACK POINTER 
PC= %7 + PROGRAM COUNTER 


SEQ 0015 
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(1) > *PRIORITY LEVEL DEFINITIONS 

(1) 000000 PRO= PRIORITY LEVEL 0 
| «@) 000040 PRi=z= 40 PRIORITY LEVEL 1 
| «@) 000100 PR2= 100 PRIORITY LEVEL : 
i wm 000140 PR3= —s-- 140 ssPRIORITY LEVEL 
| (1) 000200 PR4= 200 ae eeity LEVEL 4 
(1) 000240 PR5= 240 PRIORITY LEVEL 5 
(1) 000300 PR6= 300 + PRIORITY LEVEL 6 
C1) 000340 PR7= 340 ::PRIORITY LEVEL 7 

(1) :*''SWITCH REGISTER’ SWITCH DEFINITIONS 

(1) 100000 $w15= 100000 

(1) 040000 SW14= 0 

(1) 020000 SW13= 20000 

(1) 010000 SWi2= 10000 

(1) 4000 SW11= 

(1) 002000 Sw10= 2000 

(1) 000 sw0O9= 1000 

(1) 0400 SwO8= 400 

(1) 000200 SwO7= 200 

(1) 000100 sw06= 100 

(1) 040 sw05= 40 

(1) 000020 SWwO4= 20 

(1) 000010 SwO3= 10 

(1) 000004 SWO2= 4 

(1) 000002 SWwOl= 2 

(1) 000001 swo0d= 1 

(1) -EQUIV SWwO9,SW9 

(1) -EQUIV SW08,SW8 

(1) UIV SWO7.SW?7 

(1) EQUIV SW06.S 

(1) -EQUIV SW0S,SW5 

(1) “EQUIV SW04.SW4 

(1) EQUIV SwW03,SW3 

(1) -EQUIV SW02,SW 

(1) “EQUIV SWO1.SW1 

C1) “EQUIV SWO0.SWO 

(1) >*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 4000 BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 001000 BITO9= 1000 

(1) 000400 BiT08= 400 

(1) 00200 BITO7= 200 

(1) 000100 BIT06= 100 

(1) 0040 BITOS= 40 

(1) 000020 BIT04= 20 

(1) 000010 BITO3= 10 

(1) 000004 BITO2= 4 

(1) 000002 BITO1= 2 

(1) 000001 BITOO= 1 

(1) -EQUIV B1T09,B1T9 
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175610 


177777 
000000 


004000 


000200 
000100 
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BASIC DEFINITIONS 


ee) 
=—MWE WON 


‘CPu’’ TRAP VECTOR attr 
E OUT AND OTHER ERRORS 
Nee AND ILLEGAL INSTRUCTIONS 


3 *BASIC 
ERRVEC= 


33 TRACE TRAP 
 IBREAKPOINT TRAP (BPT 
+a INP ae TRAP (LOT) **SCOPE** 


ER FAIL 

: ZEMULATOR TRAP (EMT) **ERROR** 
‘TRAP’* TRA 

ITTY KEYBOARD VECTOR 


C PRINTER VECTOR 
peeeee THE FOLLOWING BREAK VECTOR AND ye CLOCK VECTOR ARE INCLUDED 
LKVEC= 100 fi he CLOCK youre 

BRKVEC= 140 ;;BREAK VECTOR 

PIRQVEC=240 3sPROGRAM INTERRUPT REQUEST VECTOR 


OROLLSLO 


EMTVEC 


oe 
<< 
Coe ssae a >: Bwawawowowoow 


FOLLOWS R4 

DLADDR= 175610 

z THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
CLR= 0 


cite iniadatte righ yh tne © tye t0 ta alata tl i rma 


RCSR REGISTER BIT NAMES 


PITITITITITI TITTLE IT ITITITITTi TLL LiTi Litt iit til. 
; RECEIVER ACTIVE INDICATOR 


ER DONE 
ER INTERRUPT ENABLE 


. 

Cc 

= 

Cc 

~ 

mm 

L— 
DBOwWwWIwwowwwIw 
et se ee 
UANDWOO—NWEuM 


rc 


F_2 
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CNDVCA.P11 27-DEC-82 11:36 BASIC DEFINITION SEQ 0018 
8879 3 UNUSED BIT04 
8880 ; UNUSED BITO3 
8881 3 UNUSED BITO2 
8882 ; UNUSED B1T01 
8885 000001 RLRRUN= BITOO ; READER RUN 
| 8885 PARR RR eee eee AAAAAAE AAA A TATA ARETE AAA eee eee eee ee eeeeeeeeeteee 
3; RBUF REGISTER BIT NAMES 
| 8887 FURR e eee eee eee eeAAAEEE HEAT AT ERATE AEE EERTEA Kee eee teehee 
| 8888 100000 ERROR= BIT15 ; ERROR INDICATOR 
8889 040000 ORERR= BIT14 3; OVERRUN ERROR 
| 8890 020000 FRERR= BIT13 3; FRAMING ERROR 
_ 8891 010000 PERR= BIT12 3; PARITY ERROR 
8892 ; UNUSED BIT11 
| 8893 ; UNUSED BIT10 
94 3 UNUSED BITO9 
| 8895 ;_ UNUSED B1T08 
| 8896 000200 RDATA7= BIT07 a \ 
8897 000100 RDATA6= BIT06 ; 
8898 000040 RDATAS= BITOS ofl 
8899 000020 RDATA4= BIT04 :  \ RECEIVED DATA BITS 
8 0010 RDATA3= BITO3 : # 
8901 000004 RDATA2= BITO2 . 4 
8902 000002 RDATA1= BIT01 y; 
pasty 000001 RDATAO= B1TOO 37 
8905 PUAAe ee eRe AAREAATATASA HEAT TTA e ee eRe e ee ee eeeeKe eet eeeeeeee 
8 ; TCSR REGISTER BIT NAMES 
8907 PUA eeeeRe eee ee eeAAAAAH AA ATATTA Kee LATTA Ae eee eeeeteeeeeeerereeeee 
8908 100000 PBAUD3= BIT15 \ 
8909 040000 PBAUD2= BIT14 :  \ PROGRAMMABLE BAUD 
8910 0000 PBAUD1= BIT13 :; ¢ RATE BITS 
8911 010000 PBAUDO= BIT12 . 
8912 004000 PBAUDSE T= BIT11 : ENABLE SETTING OF 
8913 ; PROGRAMMABLE BAUDE RATE 
8914 ; UNUSED BIT10 
8915 3 UNUSED BITO9 
8916 3 UNUSED BIT08 
8917 000200 XMITRDY= BITO7 3; TRANSMITTER READY 
8918 000100 XMITIE= BIT06 ; TRANSMITTER INTERRUPT ENABLE 
8919 ; UNUSED BITOS 
| 8920 : UNUSED BITO4 
8921 ; UNUSED BIT03 
8922 000004 MAINT= BIT02 3; MAINTENANCE SET BIT 
8923 ; UNUSED B1T01 
So5e 000001 BREAK= B1T00 ; SEND BREAK (CONTINUOUS SPACE) 
8926 
8927 PLUAAHAAAAe ee He TAAAATHAATA TATA TATA KAKA KAA ee eee KAeeeeeeeeeeeeee 
8928 ; TBUF REGISTER BIT NAMES 
8929 FLARAAAAA AeA AAATAAATAALLKAKAEKARe KAKA KAKA AKA HK eKeeeeeeeeeere 
8930 3 UNUSED BIT15 
8931 3 UNUSED BIT14 
8932 ; UNUSED B1T13 
8933 : UNUSED BIT12 
69 ; UNUSED BIT11 
| 
| 
| 
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CNOVCACPIT  27HDEC=82 1 
8935 
8936 
| 8937 
8938 000200 
8939 000100 
| 8940 000040 
894 1 00002 
8942 000010 
8943 000004 
8944 000002 
8945 000001 
8946 
8947 
8948 
8949 
8950 
8951 000017 
8952 000020 
8953 0000 
8954 000100 
8955 000200 
8956 
8957 
8958 
8959 007400 
8960 010000 
8961 020000 
8962 040000 
8963 100000 
8964 
(1) 
000000 


000174 
000174 000000 
000176 000000 
000200 000137 
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: UNUSED BIT10 
: UNUSED BIT09 
: UNUSED BIT08 
TDATA7= B1T07 : \ 
TLATA6= BITO6 3! 
TDATAS= BITOS :! 
TDATAG= BITO4 + \ TRANSMITTER DATA BUFFER 
TDATA3= BIT03 : 7 
TDATA2= BITO2 3! 
TDATA1= BITO1 3! 
TDATAO= BITOO 7 / 
FURR AEA ERE REAR AEE REE EEE EERE EEE EAE EEEEEREERREREEEAE EEE 
: FLAG BITS TO BE USE OR CLEARED IN $USWR. 
DATA = 17 
PARITY = 20 
EVENODD = 40 
COMSPD = 100 
PBR 200 
: BAUDE MUST BE ON THE UPPER 
: BYTE BOUNDRY OF $USWR.--4 BITS 
BAUD = 7400 
BRK = 10000 
WRAP 20000 
MAINTJUMP = 40000 
ERRBITS = 100000 


FERRER ERERERREKE 


* arte TRAP CATC 


PARAARAAARARAAAAAAALAALARE ALLA RA LEAS ALARA LADS DAS OD 


HER 


-=0 
s*ALL UNUSED LOCATIONS FROM 4 = 776 ite A _*',#2,HALT"’ 


*SEQUENCE TO CATCH 


S*LOCATION, O CONT 


DISPREG: — 0 
SWREG: 0 
-SBTTL STARTING 

JMP @#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 


ILLEGAL TRAPS AND INTERRUPTS 
AINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


3;SOFTWARE DISPLAY REGIS'ER 
zsSOFTWARE SWITCH REGISTER 
ADDRESS(ES) 


SEQ 0019 


MAINDEC=11=CNDVC=A 
CNDVCA.P11 


Qo 00 


eee ttt tt tele tetatetatateatetatal °°. *laleateleteletealeieas *) 
ee ee ek ed ed ed PL) ed td ot od ot I SI CR tt tS SO 
eee eee ee ee ee YW OOO Yew we HY OOS 


000046 
000052 


000024 


000044 


001000 


001012 


000204 


001000 


001000 


001000 


000000 


000030 
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STARTING ADDRESS(ES) 
-SBTTL ACT11 HOOKS 


FERRARA AAEREREE EEE RET EEE E EAE ER EERE RARER EEEEREREREERRET EES 


‘HOOKS ace, BY ACT11 


SvPC=. SAVE PC 
SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“wORD 0 ;:2)SET LOC. 532 TO ZERO 

* =$SVPC tt RESTORE P 


-=1000 
-SBTTL APT PARAMETER BLOCK 


FERRARA RAERE REE ERRATA TERA AE EERE EAA REEEEEEEEEAERRERRE EH 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FERRARA REE EEEE EEE EEE EERE REE EERAEEREEEREEEAREREAEEERAERERE 


SEQ 0020 


- $X=. 44 vi eta LOCATION 

2=24 as T POWER raul TO POINT TO START OF PROGRAM 
200 APT START UP 

-=44 7:POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR S POINT TO APT HEADER BLOCK 

-=.$X  ;;RESET LOCATION COUNTER 


PRRRARERREAERA AAT ATA AAA RATATAT TEA AeA eee eee Ke eeeeeteeeeeeeeeeeee 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
SINTERFACE SPEC. 


SAPTHD: 
;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


s 0 
SMBADR: .WORD ~~ 33AD DRESS OF APT “ere (BITS 0-15) 


TT 
OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SPASTM: .WORD 45. ; RUN tt N SECS. 
SUNITM: .WORD 30. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
“WORD se iEND-ShAlt 7? ::LENGTH MAILBOX-E TABLE (WORDS) 


r—- 


r- —— -—-- = ++ + + - 


=. 
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[NAINDEC=11=CNDVC~A 
ACNDVCA.PI1 — 27-DEC~82 11:36 COMMON TAGS 
| 8971 .SBTTL COMMON TAGS 
(2) FERRARA AEEERER AAA AEE EEEE EERE AERA EEEEREEAAEAEAEERAEEEEER EEE 
 @ tSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
23% + *USED IN THE PROGRAM 
| (1) 001100 .=1100 
(1) 001100 SCMTAG: s;START OF COMMON TAGS 
| (2 901100 000099 .WORD 0 
| <1) 001102 000 $TSTNM: .BYTE 0 s:CONTAINS THE TEST NUMBER 
| (1) 001103 000 SERFLG: .BYTE 0 3:CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 S:CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 T:CONTAINS SCOPE LOOP ADDRESS 
| 1) 001119 000000 $LPERR: .WORD 0 *: CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 00000 SERTTL: .WORD 0 T:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 SITEMB: .BYTE 0 S:CONTAINS ITEM CONT Y 
(1) 001115 00 SERMAX: .BYTE 1 T:CONTAINS MAX. ERRORS PER TEST 
(1) 001116 0000 SERRPC: .WORD 0 ::CONTAINS PC OF LAST ERROR, INSTRUCTION 
(1) 001120 000000 S$GDADR: .WORD 0 s:CONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 $BDADR: .WORD 0 3; CONTAINS ADDRESS OF ‘BAD’ DATA 
(1) 001124 000000 $GDDAT: .WORD 0 : CONTAINS "GOOD" DATA 
(1) 001126 0000 SBDDAT: .WORD 0 3 NTAINS ATA 
(1) 001130 000000 “WORD 0 < TRESERVED=-NOT TO BE USED 
(1) 001132 000000 “WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 ;zAUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 sz INTERRUPT MODE INDICATOR 
(1) 011 000000 WORD 0 
(1) 001140 177570 R: WORD  DSWR ;:ADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP SZADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 TKS: 177560 ETTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 s3TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 [TTY PRINTER BUFFER RE=. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 tICONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: :BYTE 2 
(1) i;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 $FILLC: .BYTE 12 ;zINSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 STPFLG: “BYTE 0° "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
(1) 001160 000000 S$TIMES *:MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 S:ESCAPE ON ERROR ADDRESS 
(1) 001164 177607 000377 $BELL: .ASCIZ <207><377><377> SSCODE FOR BELL 
(1) 001170 077 $QUES: ASCII T:QUESTION MARK 
(1) 001171 015 SCE: cASCHT <15> i; CARRIAGE RETURN 
(1) 001172 000012 SLF:  SASCIZ_<12> TILINE FEED 
(2) SRAAAAEAAEAAAAEEEAEAEEAE EERE EEE AAAAAA RAE ARERR EREAEEAEEAEEEEEAERE 
(2) *SBTTL APT MAILBOX-ETABLE 
(3) Fe TRAE AEE EAEAEEEE AERA E EEE EEEEEEARAAAAEEAA RARER EEEEERE 
(2) EVEN 
(2) 001174 $MAIL: S;APT MAILBOX 
(2) 001174 0000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AF ATAL 2 FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESTN ::TEST NUMBER 
(2) 001202 000000 PASS: .W PASS es COUNT 
(2) 001204 000000 SDEVCT: :WORD ADEVCT ::DEVICE COUNT 
(2) 001206 000000 SUNIT: .WORD AUNIT +:1/0 UNIT NUMBER 


2 
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CNDVCA.PI1 =. 27=DEC=82 11:36 APT MAILBOX~E TABLE SEQ 0022 
(2) 001210 000000 SHSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 
(2) 001212 000000 SMSGLG: WORD AMSGLG :;MESSAGE LENGTH 
(2) 001214 . SETABLE : T ENVIRONMENT TABLE 
(2) 001214 000 SENV: BYTE AEN. TENVIRONMENT. BYTE 
(2) 001215 000 SENVM: .BYTE — AENVM 
(2) ; ENVIRONMENT MODE BITS 
(2) 001216 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001220 011110 SUSWR: WORD AUSWR ;;USER SWITCHES 
(2) 001222 000000 SCPUOP: .WORD ACPUOP CPU TYPE OPTIONS. 
(2) 3* BITS 15-11=CPU T 
(2) i* 11706201 .11/05=02,11/20=03,11/40=04,11/45205 
(2) :* 1/7 Os 06, PDQ=07,0=10 
(2) i BIT 10=REAL TIME CLOCK 
(2) z* BIT 9=FLOATING. POINT PROCESSOR 
(2) : BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001225 000 $MTYP1: (BYTE AMTYP1 ::MEM. TYPE,BLKA1 
(2) :# MEM.TYPE BYTE == (HIGH BYTE) 
(2) :* 900 NSEC CORE=001 
(2) :* 300 NSEC BIPOLAR=002 
(2) : 300 NSEC MOS=003 
(2) 001226 000000 EMADRI: .WORD AMADR1 ;:HIGH ADDRESS. BL Sarr 
(2) ;% MEM.LAST ADDR. -¥ BYTES, THIS WORD AND LOW OF ‘'TYPE’* ABOVE 
(2) 001230 000 $MAMS2: .BYTE AMAMS2 ::HIGH ADDRESS M.S. BYTE 
(2) 001231 000 SMTYP2: .BYTE AMTYP2 3; MEM. TYPE BLKA 
(2) 001232 000000 SMADRS: “WORD AMADRD : :MEM-LAST” ADDRESS, BLK&2 
(2) 001234 000 SMAMS3: .BYTE AMAMSS i zHIGH ADDRESS. (f-S-8Y TE 
(2) 001235 000 SMTVP3: .BYTE AMTYP3 3; MEM. TYPE .BLK 
(2) 001236 000000 SMADR3: “WORD AMADR3 ::HEM:LAST ADDRESS BLKAS 
(2) 001240 000 SMAMSG: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(2) 001241 000 SMTYP4: .BYTE AMTYPG ;; MEM. TYPE .BLKAG 
(2) 001242 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS BLKA4 
(2) 001244 000300 S$VECT1: .WORD AVECT1 ;INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 $VECT2: .WORD AVECT2 ;;INTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001250 175610 $BASE: .WORD ABASE 
(2) ::BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000001 SDEVM: WORD ADEVM ;;DEVICE MAP 
(2) 001254 SETEND: 
(2) »MEXIT 


we 
— 
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001254 
001254 


001334 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
3*THIS TABLE CONTAINS STAINED BY USING | FOR EACH ERROR Hg Bi OCCUR. 


7*THE INFORMATION IS OBT D BY USING THE INDEX NUMBER F IN 
S*LOCATION S17EMB. s ot UMBER INDICATES WHICH ITEM IN THE iS - PERTINENT. 
IT 


;*NOTE1: IF SITEM S IS 0 THE ONLY PERTINENT DATA _IS ($ERRPC). 
; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7° EM 3;POINTS TO THE Hoy MESSAGE 
e* DH 3;POINTS TO THE DATA HEADER 
3* DT 3;POINTS TO THE DATA 
a* DF 3:POINTS TO THE DATA FORMAT 
SERRTB 
ae GLOBAL DATA 
DLADD: DLADDR 
DLVEC: 300 
RCSR: DLADDR + 0 
RBUF DLADDR + 2 
DLADDR + 4 
TCSRHI: DLADDR + 5 
— + 6 


I: 
-BLKW 20 sFOR RS STACK 
RSSTACK: “WORD 00 


SEQ 0023 


L 
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LNDVCA.P11 27-DEC-82 11:36 ERROR POINTER TABLE SEQ 0024 
8985 
8986 001336 START: 
(1) -SBTTL_ INITIALIZE THE COMMON TAGS 
(1) ZiCLEAR THE COMMON TAGS (S$CMTAG) AREA 
(1) 001336 012706 001100 MOV A#SCMTAG,R6 :sFIRST LOCATION TO BE CLEARED 
(1) 001342 005026 CLR (R6)+ , oem MEMORY LOCATION 
(1) 001344 022706 001140 CMP #SWR,R6 53D 
(1) 001350 001374 ad --6 LOOP BACK IF NO 
(1) 001352 012706 001100 #STACK,SP :TSETUP THE STACK POINTER 
(1) s INITIALIZE A FEW VECTORS 
(1) 001356 012737 013326 000020 #SSCOPE ,a#LOTVEC +3 10T VECTOR FOR SCOPE ROUTINE 
(1) 001364 012737 000300 000022 MOV #PR6 ,a#LOTVECt2 ; 
(1) 001372 012737 013126 000030 MOV #SERROR, aWEMTVEC isEMT VECTOR FOR ERROR ROUTINE 
aS 001400 012737 000300 000032 BIT02 MOV #PRO,QWEMTVEC+2 5 :LEVEL 6 
(1) 0014 012737 014260 000034 MOV #STRAP ,Q#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
(1) 001414 012737 000300 000036 MOV #PR6,A#TRAPVEC+2;LEVEL 6 
(1) 001422 012737 011440 000024 MOV #SPWRON, a#PWRVEC on FAILURE VECTOR 
(1) 001430 012737 000300 000026 MOV #PR6 ,a#PWRVEC +2 sel VEL 6 
(1) 1436 016767 007710 007700 MOV SENDCT ,SEOPCT SEY UP END-OF -PROGRAM COUNTER 
(1) 001444 005067 177510 CLR STIMES 3s INITIALIZE NUMBER OF ITERATIONS 
(1) 001450 005067 177506 CLR SESCAPE sCLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 001454 112767 000001 177433 MOVB #1, SERMAX ::ALLOW ONE ERROR PER TEST 
(1) 001462 012767 001462 177416 MOV #.,SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001470 012767 001470 177412 MOV #. ,SLPERR : SETUP 1" h ay LOOP ADDRESS 
(2) SIZE FOR A HARDWARE | SWITCH neciifine F NOT FOUND OR IT 
(2) 3;EQUAL TO A *'=1°", SETUP FOR A SORTWARE. SWITCH REGISTER. 
(2) 001476 013746 000004 MCV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
(2) 001502 012737 001536 000004 MOV #64$, age RRVEC 23 SET UP ERROR VECTOR 
(2) 001510 012767 177570 177422 MOV #DSWR, SWR 3;SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001516 012767 177570 177416 MOV #DDISP, eel 37AND A HARDWARE DISPLAY REGISTER 
(2) 001524 022777 177777 177406 CMP #-1,aSWR zTRY TO REFERENCE HARDWARE SWR 
(2) 001532 001012 BNE 668" ::BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) . THE Er SWR IS NOT = -1 
(2) 1534 000403 BR 65$ 3 ;BRANCH IF NO TIMEOUT 
(2) 001536 012716 001544 64$: MOV #65$, (SP) :;SET UP FOR TRAP RETURN 
(2) 001542 000002 RTI 
(2) 001544 012767 000176 177366 65$: MOV #SWREG, SWR prem TO SOFTWARE SwWR 
(2) 001552 012767 000174 177362 MOV #DISPREG,DISP 
(? 001560 012637 000004 668: MOV (SP) + aeERRVEC ” , sRESTORE ERROR VECTOR 
(2) 001564 005067 177412 CLR SPASS 37;CLEAR PASS COUNT 
(2) 001570 132767 000200 177417 BITB #APTSIZE ,SENVM ee TEST USER SIZE vest APT 
(2) 001576 001403 BEQ 67$ YES,USE NON-APT SWITCH 
(2) 001600 012767 001216 177332 MOV #SSWREG, SWR 3:NO,USE APT SWITCH REGISTER 
(2) 001606 67$: 
8987 -SBTTL _TYPE PROGRAM NAME 
(1) ;;TYPE THE NAME OF THE PROGRAM IF FIRST ae 
(1) 1606 005227 177777 INC #-1 z3FIRST TIME? 
(1) 001612 001037 BNE 685 : BRANCH IF NO 
(1) 001614 022737 011404 000042 CMP #SENDAD ,a#42 33ACT=11? 
(1) 001622 001433 re 68$ a IF YES 
(1) 001624 104401 001672 YPE .698 ASCIZ_ STRING 
(2) - SBTTL Ger VALUE 4 SOF TWARE sbitcn REGISTER 
(2) 001630 005737 000042 TST M42 ARE WE RUNNING UNDER XXDP/ACT? 
(2) 001634 001012 BNE 708 : TBRANCH IF YES 


--—— ----———— SSS SS Oreo eee Cn 
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| MAINDEC=11 =CNDVC=A MACY 30(1046) 27=DEC=82 11:37 PAGE 156-1 
CNDVCA.P11 =. 27=DEC=82 11:36 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0025 
(2) 001636126727 -177352 000001 CMPB es SEN, #1 : ARE WE RUNNING UNDER APT? 

(2) 001644 00140 EQ ‘BRANCH IF Y 
| (2) 001646 «026727. «177266 ~+000176 CMP SWR, #SWREG +:SOFTWARE SWITCH REG SELECTED? 
/ (2) 001654 +001005 BNE 71$ i: H IF 
| 2) 001656 104406 GTSWR S:GET SOFT-SWR SETTINGS 
' (2) 001660 000403 R 71$ 
| (2) 001662 112767 000001 177244 708: MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 

(1) 001670 000410 BR 68$ :GET OVER THE ASCIZ 

(1) 3:69$: .ASCIZ <CRLF>*MD=11=CNDVC-AS<CRLF> 

(1) 001712 68$: 


z~aw ! 


/MAINDEC=11=CNDVC-A 


CNDVCA.P11 


001712 


002136 


002142 
002142 


002146 


002152 
002156 


002244 
002250 


27-DEC-82 


005767 
001101 


000000 
000674 


012767 
012767 


004767 


012167 


011167 
016701 


016767 


016767 
062767 


016767 
062767 


016767 
062767 


016767 
062767 


012705 
000005 


MACY11 30(1046) 


11:36 


177334 


000001 
100000 


006520 


177106 


177104 
177076 


177072 


177064 
000002 


177050 
000004 


177034 
000005 


177020 
000006 


001334 


606754 
006744 


177074 


177070 
177062 


177056 
177050 


177044 
177036 


177032 
177024 


ity 


$1: 


$2: 


DEC-82 11:37 PAGE 157 
T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
WHILE $DEVM EQ #0 DO 
Gt $DEVM 
TYPTXT <<CRLF>!I HAVE NO DEVICE TO TEST.! 
TYPTXT <<CRLF>!SET UP $DEVM TO INDICATE ACTUAL CONFIGURATION. !> 
At <<CRLF>!TYPE PROCEED (P) TO CONTINUE. !> 


ENDDO 
BR $1 


LET INITFLAG := #1 


MOV #1, INITFLAG 
LET BITMASK := #BIT15 ; START AT CONSOLE 


MOV #B81T15,BITMASK 


LOOP: 


CALL CYCLE 3 NO ARGUMENTS=-ADDS => NEXT ADDRESS 
JSR PC,CYCLE 
: ADDRS+2 => NEXT VECTOR 
GET UNIT ADDRESS 
LET DLADD := (ADRS)+ 


;GET UNIT VECTOR 
LET DLVEC := (ADRS) 


LET ADRS := DLADD 


sRCSR = DLADD + O 
LET RCSR := DLADD 


LET RBUF -:= DLADD + #2 


MOV (ADRS) +,DLADD 


MOV (ADRS) ,DLVEC 
MCV DLADD, ADRS 


MOV DLADD,,RCSR 
MOV DLADD ,RBUF 
ADD #2,RBUF 

LET TCSR := DLADD + 44 
MOV DLADD, TCSR 
ADD #4,TCSR 
MOV DLADD, TCSRHI 
ADD #5, TCSRHI 
MOV DLADD , TBUF 
ADD #6, TBUF 
MOV #RSSTACK RS 


RESET 


LET TCSRHI := DLADD + #5 


LET TBUF := DLADD + #6 


LET RS z= #RSSTACK 
7 BRESET 


-————_—_---—_--------------- 


MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 158 
CNDVCA.P11 27=DEC=82 11:36 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0027 
| 908 laa ha. men CS ee ee 
| "¢3) tSTEST 1 ADDRESSABILI 
| a) ie THIS TEST LE RIFIES THAT THE ADDRESS AS PLACED IN 
(4) te THE HARDWARE P=TABLE TO BE CORRECT AND THE DLV11-F RESPONDS 
(4) it TO THAT ADDRESS SPACE 
(3) RRAAAAEKAAKEREEAAERAEEKEAAKEALARERARAERARAAEAAAAAAAAAEAEEKRAREEEERE 
(2) 002252 000004 T1: SCOPE 
(1) 002254 012767 000002 176676 MOV #2, STIMES ;3D0_2_ ITERATIONS 
(2) 002262 012767 000001 176710 MOV #1.$TESTN ;3SET TEST NUMBER IN APT MAIL BOX 
9038 002270 LET ADRS := DLADD 
(4) 002270 016701 176760 MOV DLADD, ADRS 
9039 SET UP INTERRUPT 
9040 002274 SETVEC #ILLMEM,#INTSRV,.#PRO 
(5) 002274 010146 MOV R1,=(SP) 
(5) 002276 012701 000004 MOV #ILLMEM,R1 
(5) 002302 012721 010652 MOV #INTSRV, (R1)¢ 
(5) 002306 012711 000300 MOV #PR6, (RI) 
(5) 002312 012601 MOV (SP)+,R1 
9041 002314 LET I := #0 
(4) 002314 005067 176752 CLR I 
9042 002320 REPEAT 
(3) 002320 $3: 
9043 002320 BGNSUB 
(5) 002320 012767 002326 176562 MOV #64$,$LPERR 
9044 ZCLEAR FLAG 
9045 002326 LET INTFLAG := #0 
oft? 002326 005067 006326 CLR INTFLAG 
9047 :READ FLAG 
9048 002332 005711 TST @ADRS 
9049 002334 IF INTFLAG NE #0 THEN 
(6) 002 005767 006320 TST INTFLAG 
(9) 002340 001401 BEQ $4 
9050 : FATAL ERROR 
9051 002342 ERRDF 1,,NODL 
(1) 002342 104001 ERROR 1 
9052 002344 ENDIF 
(4) 002344 $4: 
9053 002344 ENDSUB 
9054 002344 LET JI:= 1 + #2 
(7) 002344 062767 000002 176720 ADD #2,1 
9055 002352 LET ADRS := DLADD + I 
(4) 002352 016701 176676 MOV DLADD, ADRS 
(7) 002356 066701 176710 ADD 1, ADRS 
9056 002362 UNTIL I £2 #8. 
(3) 002362 026727 176704 000010 CMP 1,48. 
(6) 002370 001353 BNE $3 
9057 002372 CLRVEC ILLMEM 
(3) 002372 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
(3) 002374 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
(5) 002376 012701 000004 MOV #ILLMEM,R1 
(5) 002402 010102 MOV R1,R2 
(8) 002404 062702 000002 ADD #2,R2 
(5) 002410 010221 MOV R2.(R1)¢ 


eee 


‘eeioeeere 
|MAINDEC=11=CNDVC=A MACY11 50(1046) 
/CNDVCA.P11 27=DEC-82 11:36 


(5) 002412 005011 
(3) 002414 012602 
002416 012601 


002420 


27-DEC- 
11 


C 
82 11:37 PAGE 158-1 


ADDRESSABILITY 
CLR (R1) 

MOV (SP)+,R2 
MOV (SP)+,R1 


3 


7zPOP STACK INTO R2 
7;POP STACK INTO R1 
sEND OF TEST 
ENDTST 


SEQ 0028 


co 


/MAINDEC=11=CND 
“CNDVCA.P11 


002420 


002422 
002430 


9084 002436 
002436 
(8) 002444 
002446 


22 
(9) 002530 
9103 002532 


VC~A 
27-DEC-82 1 


000004 
012767 
012767 
032767 
001404 


0127¢7 
000452 


012767 


032777 
001401 


104002 


012767 
052777 


032777 
001001 


exit 30(1046) 


1:36 


000010 
000002 


010000 
000001 


6vi01 


002474 


000001 


002514 
000001 


000001 


176474 


176414 


176562 


176374 
176542 


176534 


Dd 
27-DEC-82 11:37 PAGE 159 
T1 ADDRESSABILITY 


FERRARA REREEAE AAT EEEEEE EEE EEE EAE EAE EREREREEEEEEEERKEEEEEEERE EE 


;* THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 


FURR AERA EERE EERE EEE E EERE EERE EEKEEEERRAEKEEHEREEE 


FRAT EE REE EERE EAAEEERAAEREHEREEEAEAAAEKHERERE ENS 


LATEST 2 + = TCSRO SET, rey’ RESET 
UALLY USED ON THE CONSOLE 


.t 
* Device. IF ADDITIONAL DLV gly ARE USED 

* IT IS RECOMMENDED TO REMOVE THE ‘BG’ JUMPER AND 

* CLEAR BIT 12 IN $USWR WHICH WILL CAUSE THIS 

* TEST TO BE SKIPPED. 

+ RRRRRE EERE EREA RET EEE REE REA REA REEREREREAREAEREREAEE REAR ATE Tee 
Ss 


T2: SCOPE 


MOV #10,$TIMES 3300. 10 ITERATIONS 
MOV #2,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 


SEQ 0029 


IF #BRK NOTSETIN SUSWR OR #APTENV SETIN SENV THE 


aM #BRK ,SUSWR 
BIT #APTENV, SENV 
BEQ $6 


$5: 
EXIT TEST  ; BREAK NOT INSTALLED 
MOV #1,$TIMES 
BR TST3 zzzEXIT THIS TEST 
ENDIF 
$6: 
; SEE IF IT iS CLEAR 
BGNSUB 
MOV #64$,,SLPERR 
IF #BREAK SETIN @TCSR THEN 
BIT #BREAK,aTCSR 
BEQ $7 
BREAK DID NOT seser IN TCSR 
ERRHRD 2.-DIDNOT 
ERROR 2 
ENDIF 
$7: 
ENDSUB 


; TRY TO SET BREAK BIT 

BGNSUB 
MOV #64$ ,,SLPERR 
BIS #BREAK ,aTCSR 


LET @TCSR := @TCSR SET.BY #BREAK 


STUCK TO 0 
IF #BREAK NOTSETIN @TCSR THFN 


BIT #BREAK ,ATCSR 
BNE $10 


BREAK DID a SET IN TCSR 


ERRHRD 3,,DIDNOT 


——- - - -— - = +--+ ++ - - + ne ee oe ee 


“MAINDEC=11=CNDVC=A MACY11 30(1046) Dae 11:37 PAGE 159-1 
CNDVCA. P11 27-DEC-82 11:36 BREAK = TCSRO SET, CLEAR, RESET SEQ 0030 


(1) 002532 104003 ERROR 3 

9104 002534 ENDIF 
(4) 002534 $10: 

gig? 002534 ENDSUB 


9107 ; TRY TO CLEAR A SET BIT 
9108 002534 BGNSUB 
002534 012767 002542 176346 MOV #64$ ,SLPERR 


9110 002542 LET @TCSR := @TCSR CLR.BY #BREAK 
(7) 002542 042777 000001 176514 BIC #BREAK ,ATCSR 

9111 3 SHOULD HAVE CLEARED 

002550 IF #BREAK SETIN @7CSR THEN 
002550 032777 000001 176506 BIT ee 


002556 001401 BEQ 
3; BREAK DID NOT CLEAR IN TCSR 

002560 ERRHRD 4,,DIDNOT 
002560 104004 ERROR 4 
002562 ENDIF 
002562 $11: 
002562 ENDSUB 

; NOW SEE IF RESET CLEARS IT 
002562 BGNSUB 
002562 012767 002570 176320 MOV #64$,$LPERR 


002570 LET @TCSR := @TCSR SET.BY #BREAK 
002570 052777 000001 176466 BIS #BREAK ,aTCSR 
3 ISSUE BUS RESET 


002576 BRESET 

002576 000005 RESET 

002600 IF BREAK SETIN @TCSR THEN 
002600 032777 000001 176456 BIT — 


(9) 002606 001401 BEQ 
9125 BREAK DID NOT RESET IN TCSR 
9126 002610 ERRHRD 5, .DIDNOT 

(1) 002610 104005 ERROR 5 
9127 1 ENDIF 


002612 
(4) 002612 $12: 
9128 002612 ENDSUB 
9129 002612 ENDTST 


Oo 


oo woo 


oo OO oOovowv”d 
ee oe SS LL, Lehto 


AM a9 VND Ue 2 St St BO OD 


0 
w Se wnw —O~ OBNO wus We eon 


r— 


MAINDEC=11=CNDVC-A 


/CNDVCA.P11 27-DEC-82 


) 

; 002612 
» 002614 
; 622 


60 
(4) 002660 


9150 002660 
(5) 002660 


9152 002666 
(6) ps e6e 


9166 002726 


9169 002726 
(5) 002726 


000004 
012767 
012767 


032767 
001404 
126727 
001004 


012767 
000452 


012767 


032777 
001401 


104006 


012767 
052777 


032777 
001001 


104007 


012767 


MACY11 30(1046) 


11:36 


000010 
000003 


040000 
006255 


000001 


002666 


000004 


002706 
000004 


000004 


002734 


176362 
000001 


176302 


176222 


176370 


176202 
176350 


176342 


176154 


27-DEC-82 11:37 PAGE 160 
T2 BREAK = TCSRO SET, CLEAR, RESET 


FERRARA AAAAA AAR EE EE ERATE REEEAEE AE EAAAEEEEEEERAEREREREEEE EEE 
Seeeekeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeedeeeeeeeeeeeeeneeeeees 


SEQ 0031 


TEST z MAINT = TCSR2 SET, CLEAR, RESET 
RARER AATAEAAEEEKEEKEEAAERAEAAEAARAAREKERARAAAAAEERKEEEREEEEEREAE 
+813: SCOPE 
MOV #10,$TIMES +00 10 ITERATIONS 
MOV #3,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
IF #MAINTJUMP NOTSETIN $USWR ORB CONSOLE EQ #TRU 
BIT #MAINTJUMP, SUSWR 
CMPB CONSOLE , #TRUE 
BNE $14 
$13: 
EXIT TEST 
MOV #1, STIMES 
BR TST4 sisEXIT THIS TEST 
ENDIF 
$14: 
: SEE IF IT IS CLEAR 
BGNSUB 
MOV #64$,$LPERR 
IF #MAINT SETIN @TCSR THEN 
BIT #MAINT,aTCSR 
BEQ $15 
MAINT DID NOT RESET IN TCSR 
ERRHRD 6,,DIDNOT 
ERROR 6 
ENDIF 
$15: 
ENDSUB 
: TRY TO SET MAINT BIT 
BGNSUB 
MOV #64$,$LPERR 
LET  aTCSR := @TCSR SET.BY #MAINT 
BIS #MAINT,aTCSR 
; STUCK TO 0 
IF #MAINT NOTSETIN @TCSR iHEN 
BIT #MAINT, aTCSR 
BNE $16 
MAINT DID NOT SET IN TCSR 
innnan 7,,D1IDNOT 
ERROR 7 
ENDIF 
$16: 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #64$,$LPERR 


MAINDEC=11=CNDVC-A 
CNDVCA.P11 27-DEC-82 11:36 


9171 002734 
002734 


9173 002742 
(6) 002742 
(9) 002750 


(4) 002754 
9177 002754 


9180 002754 
002754 


9182 002762 
(7) 002762 


042777 


032777 
001401 


104010 


012767 
052777 
000005 
032777 
001401 


104011 


MACY11 30(1046) 


000004 


000004 


002762 


000004 


000004 


176322 


176314 


176126 


176274 


176264 


© eatin | 


$17: 


$20: 


BIC 


G. 3 
11:37 PAGE 160-1 
MAINT = TCSR2 SET, CLEAR, 


#MAINT,@TCSR 


#MAINT,a@TCSR 
$17 


10 


RESET 

LET @TCSR := @TCSR CLR.BY #MAINT 
; SHOULD HAVE CLEARED 

IF #MAINT SETIN @TCSR THEN 
; MAINT DID NOT CLEAR INTCSR 
ERRHRD 10,,D1IDNOT 

ENDIF 

ENDSUB 


> NOW SEE IF RESET CLEARS IT 
BGNSUB 


#64$,,SLPERR 


#MAINT,ATCSR 


#MAINT ,ATCSR 
$20 


11 


LET @TCSR := @TCSR SET.BY #MAINT 


; ISSUE BUS RESET 
BRESET 


IF #MAINT SETIN @TCSR THEN 
; MAINT DID NOT RESET IN TCSR 
ERRHRD 11,,DIDNOT 

ENDIF 


ENDSUB 
ENDTST 


SEQ 0032 


H 
MAINDEC=11-CNDVC-A MACY11 30(1046) gr etees 11:37 PAGE 161 
CNDVCA.P11 27-DEC-82 11:36 T MAINT = TCSR2 SET, CLEAR, RESET SEQ 0033 
919 
3300 FRRAA AAA AAHAAAAAEAHETATEAHAAAAAAAEAAKAHAEKAA eee e ee eee ee 
9201 Seeeeeeeeeeeeeeeeeeeeeeeeeededeekeeeeeneteeteeeeenneeeeeeeeeees 
(3) ; TEST 4 XMITIE = TCSR6 SET, CLEAR, RESET 
(3) PTSTITIITISITIITITITTITITITI TST T Titi T Titi T iti itt 
‘s} 003004 000004 iét4: SCOPE 
(1) 003006 012767 000010 176144 MOV ere STIMES 3:00 10 ITERATIONS 
(2) 003014 012767 000004 176156 MOV 4,$TE TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
9202 USE PRIORITY OF 6 
9207 003022 012746 000300 MOV #PR6,-(SP) 33PUT NEW PS ON STACK 
(1) 003026 012746 003034 MOV #64$,-(SP) 33;PUT NEW PC ON STACK 
(1) 003032 000002 RTI :;POP NEW PC AND PS 
(1) 64$: 
9212 
9217 ; SEE IF IT IS CLEAR 
9218 003034 BGNSUB 
9si> 003034 012767 003042 176046 MOV #65$,SLPERR 
9220 003042 IF #XMITIE SETIN @TCSR THEN 
(6) 003042 032777 000100 176214 BIT #XMITIE,@TCSR 
(9) 003050 001401 BEQ $21 
9221 3; XMITIE DID NOT Decals IN TCSR 
9222 003052 ERRHRD 12,,DIDNOT 
(1) 003052 104012 ERROR 12 
9223 003054 ENDIF 
(4) 003054 $21: 
358¢ 003054 ENDSUB 
9226 ; TRY TO SET XMITIE BIT 
9227 003054 . BGNSUB 
(5) 003054 012767 003062 176026 MOV #64$,SLPERR 
9228 003062 LET @TCSR := a@TCSR SET.BY #XMITIE 
9359 003062 052777 000100 176174 BIS #XMITIE,aTCSR + Stuck To 0 
9230 003070 IF PXAITIE NOTSETIN @TCSR THEN 
(6) 003070 032777 000100 176166 BIT #XMITIE,aTCSR 
(9) 003076 001001 BNE $22 
9231 ; XMIT DID NOT RESET IN TCSR 
9232 003100 ERRHRD 13,,DIDNOT 
(1) 003100 104013 ERROR 13 
9233 003102 ENDIF 
(4) 003102 $22: 
oeee 003102 ENDSUB 
9236 3; TRY TO CLEAR A SET BIT 
9237 003102 BGNSUB 
oste 003102 012767 003110 176000 MOV #64$ ,SLPERR 
9239 003110 LET @TCSR := @TCSR CLR.BY #XMITIE 
(7) 003110 042777 000100 176146 BIC #XMITIE,@TCSR 
9240 3; SHOULD HAVE CLEARED 
9241 003116 IF #XMITIE SETIN @TCSR THEN 
(6) 003116 032777 000100 176140 BIT #XMITIE,aTCSR 
(9) 003124 001401 BEQ $23 
9242 : XMIT DID NOT CLEAR IN TCSR 


--— 


/MAINDEC=11=CNDVC-A 


CNDVCA. P11 


9243 
) 


104014 


012767 
052777 
000005 
032777 
001401 


104015 


MACY11 30(1046) 
27-DEC-82 11:36 


$23: 


003136 175752 


000100 176120 


000100 176110 


$24: 


I 
gy SEESe 161-1 
XMITIE = TCSR6 SET, CLEAR, RESET 


11:37 PAGE 
ERROR 14 
MOV #64$,S$LPERR 
BIS #XMITIE,ATCSR 
RESET 
BIT A#XMITIE ,ATCSR 
BEQ $24 
ERROR 15 


ERRHRD 14,,DIDNOT 
ENDIF 


ENDSUB 
3 NOW SEE IF RESET CLEARS IT 
BGNSUB 


LET @TCSR := @TCSR SET.BY #XMITIE 


3 ISSUE BUS RESET 
BRESET 


IF #XMITIE SETIN @TCSR THEN 
;_XMIT DID NOT > taal IN TCSR 
ERRHRD 15,,DIDNO 

ENDIF 


ENDSUB 


ENDTST 


f——--—-- 


_MAINDEC=11=CNDVC=A 
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003160 


003162 
003170 


003176 
003176 


003232 
003232 
003240 


003244 
003244 


003252 
003252 


003272 


27-DEC-82 


000004 
012767 
012767 
012767 


032777 
001401 


104035 


012767 
052777 


032777 
001001 


104036 


012767 


042777 


032777 
001401 


104037 


MACY11 30(1046) 


11:36 


000010 
000005 


003204 


000100 


003224 
000100 


000100 


003252 


000100 


000100 


175770 
176002 


175704 


176046 


175664 
176026 


176020 


175636 


176000 


175772 


J 
af Otte 11:37 PAGE 162 
XMITIE = TCSR6 SET, CLEAR, RESET 


FRRAAAAAAAERAAEAEREREE REESE AEA EEREEAEREEEAERERHEREEHETEEEHEAEREE 
SReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeenedeeeeKeeeeneeeeteerereeeeeee 


*STEST 5 RCVRIE = RCSR6 SET, CLEAR, RESET 
Seeeeeeeeeneredeeeeedecerececereteeeneneteeenaeteeeneeeeteeeenes 
ié15: SCOPE 
MOV #10,STIMES :2D0 10 ITERATIONS 
MOV #5,$TESTN sSET TEST on IN APT MAIL BOX 
s SEE IF iT IS CLEAR 
BGNSUB 
MOV #64$ ,SLPERR 
IF @#RCVRIE SETIN @RCSR THEN 
BIT #RCVRIE,A@RCSR 
BEQ $25 
RCVRIE DID NOT oo IN RCSR 
ERRHRD 35, ,DIDNOT 
ERROR 35 
ENDIF 
$25: 
ENDSUB 
; TRY TO SET RCVRIE BIT 
BGNSUB 
MOV #64$,SLPERR 
LET @RCSR := ARCSR SET.BY #RCVRIE 
BIS #RCVRIE,A@RCSR 
; STUCK TO 0 
IF #RCVRIE NOTSETIN @RCSR THEN 
BIT #RCVRIE. aRCSR 
BNE $26 
RCVRIE DID NOT maid IN RCSR 
ERRHRD 36, .DIDNO 
ERROR 36 
ENDIF 
$26: 
ENDSUB 
; TRY TO CLEAR A SET BI: 
BGNSUS 
MOV #64$,SLPERR 
LET @RCSR := ARCSR CLR.BY #RCVRIE 
BIC #RCVRIE,ARCSR 
; SHOULD HAVE CLEARED 
IF #RCVRIE SETIN @RCSR THEN 
BIT #RCVRIE,ARCSR 
BEQ $27 
RCVRIE DID NOT A IN RCSR 
ERRHRD 37, ,.DIDNOT 
ERROR 37 
ENDIF 
$27: 
ENDSUB 


SEQ 0035 


—_———___-_—_——-———_—-_-—__- 


i 
! 
! 











| MAINDEC=11=CNDVC=A MACY 1 30(1046) 13? DEC-82 11:37 PAGE 162-1 
‘CNDVCA.P11 - 27=DEC=82 11:36 RCVRIE = RCSR6 SET, CLEAR, RESET SEQ 0036 

9306 ; NOW SEE IF RESET CLEARS IT 

9307 003272 BGNSUB 

923 003272 012767 003300 175610 MOV #64$,S$LPERR 

9309 003300 LET  @RCSR := ARCSR SET.BY #RCVRIE 
(7) 003300 052777 000100 175752 BIS #RCVRIE,a@RCSR 

9310 ; ISSUE BUS RESET 

9311 003306 BRESET 
(1) 003306 000005 RESET 

9312 003310 IF #RCVRIE SETIN @RCSR THEN 
(6) 003310 032777 000100 175742 BIT ARCVRIE,ARCSR 
(9) 003376 001401 BEQ $30 

9313 RCVRIE DID NOT RESET IN RCSR 

9314 003320 ERRHRD 40, ,DIDNO 
(1) 003320 104040 ERROR 40 

9315 003322 ENDIF 
(4) 003322 $30: 

9316 003322 CKLOOP 

9317 003322 ENDSUB 

9318 003322 ENDTST 

9319 

9320 

9321 

9322 


Or Or ~r;rn—_—_ OOO 


i 


MAINDEC=11=CNDVC=A 
CNDVCA.P11 


| 
! 


003322 


003324 
003332 


003340 
0 
003354 


003356 
003356 
003300 

3360 
003362 
003362 


003362 
003362 
003362 


000004 


012767 
012767 


012767 


032777 
001402 


104041 


000005 


MACY11 30(1046) 
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000010 
000006 


003346 
000200 


175542 
175704 


27-DEC-82 
T5 


RCVRIE 


L 
11:37 PAGE 163 


- RCSR6 SET, CLEAR, RESET SEQ 0037 


 Mhiiminmna OOO ee 


3* THE FOLLOWING 4 TESTS VERIFY 
:* THAT RESET (INIT) INITIALIZES READ ONLY BITS. 


FERRARA AAAAR EEE E EEE EEE RARER EEEAEAEAAREREEEEEEAEREEEEEEHEES 
IITIIIIIITILI LILLIA LLL LL LL LLL ELLE EEL LLL t hii 


tS TEST 6 


PPETISITITIIITITITIT IIIT ETI TI TTR TTI Tit TT iii itititi ti it iti iti t ty 


TST6: 


$31: 


SCOPE 


MOV 
MOV 


MOV 


BIT 
BEQ 


ERROR 


RESET 


TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


#10,S$TIMES 33D0_10 ITERATIONS 
#6, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
#64$ ,SLPERR 
IF #RCVRDONE SETIN @RCSR THEN 
#RCVRDONE ,ARCSR 
$31 
= RCVRDONE SHOULD HAVE ene 4 BY INIT 
RCVRDONE DID NOT CLEAR IN RCSR 
41 ERRHRD 41,HRESET, DIDNOT 
REISSUE RESET 
BRESET 
ENDIF 
zsALLOW LOOPING AFTER ERROR 
CKLOOP 
ENDSUB 


ENDTST 


Lc 


M 
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CNDVCA.P11 27-DEC-82 11:36 T6 TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT SEQ 0038 


9364 PARRA RAAARA ERA eeAe HAA e eee eee eeeee ee AKA teAeeeeeeeeeteeeeeeees 
9365 PARRA AAAAAAAAAKATTTAA AACA Tee eee eee ee eteeeeKeeeeeteKeeeeeeees 

(3) s*TEST 7 TEST THAT RCVRACT = RCSR 11 = IS CLEARED BY INIT 
+ RRRRREEREEEREREEREERTEEREREEREERAERERRAERAHRAKEAERAEEREE REE Ke ee 


003362 000004 TST7: SCOPE 


003364 012767 000010 175566 MOV #10, STIMES 33D0_10 ITERATIONS 
003372 012767 000007 175600 MOV #7, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 


0ooon0n0 

AWN 

Pepe pes 

~Fwrn 
ewe 


003400 IFB CONSOLE EQ 4TRUE THEN 
003400 126727 005515 000001 CMPB CONSOLE , #TRUE 
(9) 003406 001001 BNE $32 


9375 
9376 003410 ELSE 
(4) 003410 000416 BR $33 
(3) 003412 $32: 
9377 003412 IF #WRAP SETIN $USWR THEN 
(6) 003412 032767 020000 175600 BIT #WRAP, SUSWR 
(9) 003420 001401 BEQ $34 
9378 :: EXECUTE TEST 
9379 003422 ELSE 
003422 000411 BR $35 
003424 $34: 
9380 003424 IF #MAINT SETIN SUSWR THEN 
(6) 003424 032767 000004 175566 BIT #MAINT, SUSWR 
(9) 003432 001401 BEQ $36 
9381 s:EXECUTE TEST 
9382 003434 ELSE 
(4) 003434 000404 BR $37 
(3) 003436 $36: 
9383 003436 EXIT TEST ; LINE MUST BE TERMINATED 
(5) 003436 012767 000001 175514 MOV #1,$TIMES 
(3) 003444 000414 BR TST10 s:;EXIT THIS TEST 
9384 003446 ENDIF 
(4) 003446 $37: 
9385 003446 ENDIF 
(4) 003446 $35: 
9386 003446 ENDIF 
(4) 003446 $33: 


9388 003446 BGNSUB 
(5) 003446 012767 003454 175434 MOV #648, SLPERR 


9390 003454 IF #RCVRACT SETIN @RCSR THEN 
(6) 003454 032777 004000 175576 BIT #RCVRACT ,ARCSR 
(9) 003462 001405 BEQ $40 


9392 RESET SHOULD HAVE CLEARED RCVRACT 
9393 003464 LET @TCSR := @TCSR CLR.BY #MAINT 
(7) 003464 042777 000004 175572 BIC #MAINT,aTCSR 
9394 003472 ERRHRD 44, HRESET, DIDNOT 
(1) 003472 104044 ERROR 44 


zs: EXECUTE TEST 


ee 
| 
{ 
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| 
| 9395 
| 9396 


9401 003474 

(1) 003474 000005 
9402 003476 

(4) 003476 


i | 


$40: 


RESET 


W, 3 
11:37. PAGE 164- 
TEST THAT RCVRACT - "RCSR 11 = IS CLEARED BY INIT SEQ 0039 


TESTING EFFECT OF RESET ON BIT 
sRCVRACT DID NOT CLEAR IN RCSR 
z;ALLOW ANOTHER TRY 

BRESET 


ENDIF 


zALLOW LOOPING ON ERROR 
CKLOOP 


ENDSUB 
ENDTST 


pine 


| MAINDEC=11=CNDVC=A 
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g 
3 


003476 000004 
003500 012767 
003506 012767 


FWN aS Oawwwvw ee wif 


003514 012767 


MMRUINIMINN =f —NMNWWw- 


RR KREKL.~~..-~RR 
ouw 


3522 032777 
001002 


REER.— 
SBeBVNLS 
Ss sss 
Ww ww 
Ww w 

Ww 

So 


32 
003532 104042 


(1) 
9431 
9432 003534 
(1) 003534 000005 
9433 003536 
(4) 003536 
9434 
9435 003536 
9436 003536 
9437 003536 
9438 
9439 
9440 


ved Hh 30(1046) oo’ -BEC=ee 11:37 PAGE 165 
1:36 TEST THAT RCVRACT = RCSR 11 = IS CLEARED BY INIT SEQ 0040 
PERRRRARARERReeAeAATTERAAETATH TAHA AAA eeAAeee eA AeA eeeTeeeeKeTteee 
ITIIITITILILI LTT LLL LLL LLL Let Ltt ttt htt 
;*TEST 10 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 
RRRRRRRRReneeeeKeeeeeeeKeeeeAeKeeeeeeeeeeeeeteeteeeeeeeeeeeees 
iéT10: SCOPE 
000010 175452 MOV #10,STIMES 3:D0 10 ITERATIONS 
000010 175464 MOV #10, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
003522 175366 MOV #64$,,$LPERR 
IF #XMITRDY NOTSETIN @TCSR THEN 
000200 175534 BIT #XMITRDY,aTCSR 
BNE $41 
et SHOULD HAVE SET BIT 
XMITRDY DID NOT SET IN TCSR (AFTER RESE 
ERRHRD 42,HRESET,DIDNOT 
ERROR 42 
; ISSUE ANOTHER RESET 
BRESET 
RESET 
ENDIF 
$41: 
;ALLOW LOOPING ON ERROR 
CKLOOP 
ENDS 
ENDTST 


MAINDEC=11=CNDVC=A 
‘CNDVCA.P11  27=-DEC~82 
9442 
9447 
9452 
(3) 
(4) 
| 4a) 
3) 
| > 003536 000004 
| (1) 003540 012767 
| (2) 003546 012767 
9457 
| 9458 003554 
(003554 126727 
| = (8) -—- 003562 +=001404 
| (6) 003564 032767 
(9) 003572 001404 
| (6) 003574 
| 9459 003574 | 
(5) 003574 012767 
| (3) 003602 000513 
9460 003604 
(4) 003604 
9461 
9462 003604 


(4) 003604 012767 


(4) 003612 012767 
(4) 003620 012767 


9473 003626 
(4) 003626 105077 


9475 

9476 

9477 003632 
(3) 003632 010546 
(7) 003634 012745 
(6) 003640 016745 
(5) 003644 012745 
(4) 003650 012745 
(3) 003654 004767 
(3) 003660 012605 

9478 

9479 

9480 003662 
(6) 003662 103001 


RAS DGC are 
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000001 
000011 


005341 
000001 


000001 


000001 


000000 
000000 


175436 


177777 


004434 


000001 
175422 


175356 


000212 


000206 
000202 


C 
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T10 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT SEQ 0041 


FERRARA ERERERERERE TEETER AE EA EEEAEEEAEERAAEEAREEAREREREERHEEE EEE 
TRRRRRREERA ee ARATE KET TEL Te Te THe e eee Ketter teeeeeeeReeeneeeeeere 


;#TEST 11 M3 1 THAT XMIT RDY = TCSR 7 = CLEARS 
‘* WHEN TBUF IS LOADED WITH A CHARACTER 
AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
janeeceeceneneneneneneneeeeeneenentnennaneneqaneeesenenennsenees 
fires SCOPE 
MOV #1,$TIMES 3;D0 1 ITERATION 
MOV aii »STESTN 3;SET TEST NUMBER IN APT MAIL BOX 
IFB CONSOLE EQ #TRUE OR #APTENV SETIN SENV THEN 
oe CONSOLE , #TRUE 
BIT #APTENV, SENV 
BEQ $43 
$42: 
EXIT TEST 
MOV #1,STIMES 
BR TST12 szzEXIT THIS TEST 
ENDIF 
$43: 
LET PASS := #1 ;INIT COUNT OF TIMES THRU 
MOV #1,PASS 
$44 LOOP ; START OF LOOP 


; MAX OF 2 TIMES THRU 
LET ERRORFLAG := @CLR 
MOV #CLR,ERRORFLAG 


LET EXITFLAG := #CLR 
MOV #CLR, eEXITFLAG 
LOAD TBUF WITH ONE CHARACTER 
EADY TO st 


: (SHOULD BE VERY SHORT WAIT 
> SINCE UART DOUBLE BUFFERS ITS INPUT) 


SEND A_CHARACTER 
LET aTBUF :B= 40 


CLRB = aTBUF 
sWAIT 
[OF $00 MS FOR 
[XMIT ROY 56 SET IN TCSR 
CALL’ TIMER IN <#500,#XMITRDY, TCSR,#SET> 
MOV RS,-(SP) 
MOV #SET,-(R5) 
MOV TCSR,=(R5 
MOV #XMITRDY,=(RS) 
MOV #500,-(R5 
JSR PC, TIMER 
MOV (SP)+,R5 
s TIMER RETURNS AN ERROR IF BIT DID 
“NOT MEET CONDITION WITHIN TIME LIMIT 


IF ERROR T 
BCC $46 


4 
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'CNDVCA.P11 —- 27=DEC=82 11:36 111 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0042 
| 
| 9481 XMIT RDY DID NOT SET IN TCSR 
| 9482 003664 ERRHRD 66,,DIDNOT 
(1) 003664 +104066 ERROR 66 
9483 003666 ENDIF 
off) 003666 $46: 
9485 ; LOAD TBUF WITH A SECOND CHARACTER 
9486 + CHECK IMMEDIATELY THAT XMITRDY IS CLEAR 
9487 : AND THEN WAIT FOR IT TO SET 
9489 ;SEND SECOND CHARACTER 
9490 003666 LET @TBUF :B= #0 
(4) 003666 105077 175376 CLRB = @TBUF 
9491 003672 000240 NOP ; GIVE IT TIME TO CLEAR 
9492 ¢ XMITRDY SHOULD HAVE TELEARED UPON 
9493 RECEIPT OF A CHAR 
9494 003674 IF #XMITRDY SETIN arcsn FHEN 
(6) 003674 032777 000200 175362 BIT #XMITRDY,aTCSR 
(9) 003702 001404 BEQ $47 
9495 ; XMITRDY DID NOT CLEAR IN TCSR 
9496 003704 LET ERRORFLAG := #SET 
(4) 003704 012767 177777 000114 MOV #SET,ERRORFLAG 
9497 : DEFER ERROR TYPEOUT 
9498 
9499 003712 ELSE 
(4) 003712 000416 BR $50 


(3) 003714 $47: 


9500 WAIT A sort ae 

9501 :0F a A a 33 FOR 

9502 XMIT SET IN TCSR 

is} 003714 CALL TIMER IN <#500 AXMITRDY ,TCSR,#SET> 


Pd | 
177777 MOV #SET,-(R5S) 


004352 JSR ss byrne 
et 003744 IF .ERROR THEN 


9505 :XMIT RDY DID NOT SET IN TCSR 
9506 002746 ERRHRD 70,,DIDNO 
(1) 003746 104070 ERROR 70 
9507 003750 ENDIF 
(4) 003750 $51: 
9508 003750 ENDIF ; OF DEFERED ERROR CALL 
(4) 003750 $50: 
9509 003750 IF ERRORFLAG EQ #SET THEN 
(6) 003750 026727 000052 177777 CMP ERRORFLAG, #SET 
(9) 003756 001011 BNE $52 
9510 003760 IF PASS GT #1 THEN 
) 003760 026727 000040 000001 CMP PASS, #1 
003766 003404 BLE $53 
1 CALL ERROR IF 2ND TRY 
2 003770 ERRHRD 67, ,DIDNOT 
003770 104067 ERROR 67 
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ig Hl 00377- 


000403 


004010 026727 000014 
38 001401 

sey 000674 

004022 000403 


2 
23 004030 000000 
4 004032 
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00377. 012767 177777 000030 


2 
ee se 012767 177777 000020 


177777 


4 
oft eeeee 11:37 PAGE 166-2 


TEST THAT XMIT RDY = TCSR 7 = CLEARS 


MOV 
$53: 

BR 
$52: 

MOV 
$54: 

CMP 

BEQ 

BR 
$45: 


PASS: 0 
ERRORFLAG: 0 
EXITFLAG: 0 


#SET,EXITFLAG 


$54 


SET, EXITFLAG 


EXITFLAG,#SET 
$45 
$44 


TST12 


LET EXITFLAG := 4#SET 
ENDIF 
ELSE ; NO ERROR 


LET EXITFLAG := #SET 
ENDIF 
EXIF EXITFLAG EQ #SET 


ENDLOOP 


EXIT i SKIP AROUND FLAG WORDS 
szcEXIT THIS TEST 


ENDTST 


SEQ 0043 


F 
MAINDEC=11=CNDVC=A MACY11 30(1046) mf Sei | 11:37 _ PAGE 167 


6 
CNDVCA.P11 27-DEC-82 11:36 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0044 
3284 PLAAAAAAARAAAAAAAAAATARATARAHRAAHAARAAAKERAKARRAHERAeKeKeeAeeeeees 
9536 FL RRAAAAAAHRERAAREAAAATAHERETAAAEAEAAAAKERAEHAARAAAEREEKAAEETee EES 
(3) s*TEST 12 TEST THAT OUTPUTTING A_ CHAR FROM TBUF (WITH MAINT SET) 
(4) s* RESULTS IN RCVRDONE ity. WITHIN A REASONABLE AMOUNT OF TIME 
(4) 3* AND THAT RESET CLEARS THE BIT. 
(3) fs RAR AARA AAA R HAAR EAAAAAAEEAAAEHAREAAARAKERAARE RARER ERR Hee Te 
<3 004032 000004 TST12: SCOPE 
(1) 004034 012767 000001 175116 MOV #1,STIMES 33D0_1_ ITERATION 
gif 004042 012767 000012 175130 MOV #12,$TESTN 33ST TEST NUMBER IN APT MAIL BOX 
9542 004050 IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
(6) 004050 032767 040000 175142 BIT #MAINT JUMP, SUSWR 
(8) 004056 001404 BEQ 5 
(6) 004060 126727 005035 000001 CMPB = CONSOLE , #TRUE 
(9) 004066 001004 BNE $56 
(6) 004070 $55: 
9543 00/070 EXIT TEST 
(5) 004970 012767 000001 175062 MOV #1,S$TIMES 
(3) 004076 000442 BR TST13 33cEXIT THIS TEST 
9544 004100 ENDIF 
(4) 004100 $56: 
9545 
9546 SET THE MAINTENANCE BIT 
9547 004100 LET arcse := @TCSR SET.BY #MAINT 
$4} 004100 052777 000004 175156 BIS #MAINT,aTCSR 
9549 004106 BGNSUS 
(5) 004106 012767 004114 174774 MOV #64$,SLPERR 
45 54 ; SEND A CHARACTER AND LET IT WRAP AROUND 
9552 004114 LET aTBUF :B= #0 
oiss 004114 105077 175150 CLRB aTBUF 
9554 ; WAIT A MAXIMUM OF 50 MSEC 
£334 : FOR RCVR DONE TO SET IN 
9557 004120 CALL TIMER IN <#500,#RCVRDONE ,RCSR ,#SET> 
(3) 004120 010546 MOV R5,=(SP) 
(7) 004122 012745 177777 MOV #SET,-(R5) 
(6) 004126 016745 175126 MOV RCSR,~(R5) 
(5) 004132 012745 000200 MOV #RCVRDONE ,=(R5) 
(4) 004136 012745 000500 MOV #500,-(R5) 
(3) 004142 004767 004146 JSR nf TIMER 
mth 004146 012605 MOV P)+,R5 
9559 :DIDN'T SET IN TIME 
9560 004150 IF ERROR THEN 
(6) 004150 103004 BCC $57 
9561 ; RCVRDONE DID NOT SET IN RCSR 
9562 ; CAN NOT LEAVE WITH MAINT SET 
9563 004152 LET @TCSR := @TCSR CLR.BY #MAINT 
(7) 004152 042777 000004 175104 BIC #MAINT ,aTCSR 
9564 004160 ERRHRD 71,,DIDNOT 
(1) 004160 104071 ERROR 71 
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004162 
004162 


004162 


004162 
004162 


012767 


000005 


032777 
001401 


104072 
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004170 


000200 


174720 


175060 


e2-DEC~6e 
T12 


$57: 


$60: 


MOV 


RESET 


BIT 
BEQ 


ERROR 


S, 
11:37 PAGE 167- 
TEST THAT OUTPUTS ING A CHAR FROM TBUF (WITH MAINT SET) 


ENDIF 
ENDSUB 


BGNSUB 
#64$, SLPERR 
NOW THAT IT IS SET SEE IF IT CAN * RESET 
; THIS ALSO WILL CLEAR "Seat BIT 


IF #RCVRDONE SETIN @RCSR THEN 
en 


RCVRDONE DID NOT RESET IN RCSR. 
ERRHRD 72,,DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


72 


SEQ 0045 
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RE~K~KFE~KE~ 
ft sy 
ouw Bewnw~ Ow 


004204 000004 


004206 012767 
004214 012767 


004222 

004222 032767 
004230 001404 
004232 126727 
004240 001004 
004242 

004242 

004242 012767 
004250 000440 
004252 

00425 

004252 

004252 052777 
004260 

004260 012767 
004266 

004266 195077 
004272 

004272 

004274 


103001 


104073 


WWW WW 
FREON SS 
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000010 174744 
000013 174756 


040000 174770 
004663 000001 


000001 174710 


000004 175004 
004266 174622 


174776 


177777 


000004 174734 


27-DEC-82 11:37 PAGE 16 
T12 


8 
TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0046 


FFE AAAAAEAAAAEAAEAEEEE EE EAEEEEEAAAAAEAEEEEERARARAREEHEEREREE EEE 
MOR AARAALALALALLAAALALAALAAA AAAS AA LAA A AAR A ARRAS RRA A AAAS ASAD ADDS 


*TEST 13 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


MOE RAARASALASLARSLARAAARLALAAAAAALAAALAL EASA AAR RRA RSA SAAR AAA SAS AS 


TS113: 


$61: 


$62: 


$63: 


SCOPE 


S$ 7:00 10 ITERATIONS 
N 7;SET TEST NUMBER IN APT MAIL BOX 


IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EC #TRU 


MOV '] 
MOV # 
BIT 1 leas 
CMPB CONSOLE , #TRUE 

E $62 


EXIT TEST 


MOV #1,STIMES 
TST14 s2czEXIT THIS TEST 
ENDIF 


; SET MAINT. BIT 
LET @TCSR := @TCSR SET.BY #MAINT 
BIS #MAINT ,ATCSR 
BGNSUB 
MOV #64$,SLPERR 
; OUTPUT A CHARACTER WITH MAINTENANCE 
; SET, AND WAIT FOR XMITRDY TO SET. 


; OUTPUT A CHARACTER 
LET @TBUF :B= 40 


; WAIT MAXIMUM OF 500 MSEC 
: 4 ad aes TO SET IN 


CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


CLRB aTBuF 


MOV RCSR,=(R5S) 
MOV #RCVRDONE ,=(R5) 
#500,-(R5) 


JSR PC, TIMER 
MOV (SP)+,R5 


BIC #MAINT ,aTCSR 


LET @TCSR := @TCSR CLR.BY #MAINT 


; DID IT BECAME READY? 
IF .ERROR THEN 


BCC $63 
z:RCVRDONE DID NOT SET IN RCSR 
ERRHRD 75,, DIDNOT 
ERROR 73 
ENDIF 
ENDSUB 


eee 
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é 


£8 8888 


117700 


032777 
001401 
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174722 


000200 174712 


27-DEC-82 
713 


$64: 


MOVB 


BIT 
BEQ 


ERROR 


11:37 PAGE 168-1 
TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


: NOW THAT IT IS SET LETS SEE IF READING THE 
; BUFFER CLEARS RCVRDONE. 


aRBuF ,RO 


#RCVRDONE ,ARCSR 
$64 


74 


ENDTST 


:READ BUFFER 
LET RO :B= aRBUF 


IF MRCVRDONE SETIN @RCSR THEN 
zRCVRDONE DID NOT CLEAR IN RCSR 


ERRHRD 74, ,DIDNOT 
ENDIF 


SEQ 0047 
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(3) 004476 
9665 004476 


000004 


012767 
012767 


126727 


012767 
000526 


032767 
001404 


012767 
000516 


052777 
012700 
005001 


105077 


032777 
001403 


012700 
000401 
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000010 
000014 


004525 


040000 


000001 


000001 


000001 


000004 
000000 


174610 


004000 


177777 


30(1046) mS ale 11:37 PAGE 169 
113 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


FUAAAAAAHHHAAHAHHAHKHKHHHEK HEHE KEKAAAARAKEKE REE HeReeKeteReeeneee 
FRMAAAHHEHAHHKAHATEHHEREKAHEHKEKERAARERAAAAKEHKEKEKEE EERE eKeTeeee 


SEQ 0048 


SSTEST 14 TEST THAT RCVRACT = RCSR 11 = SETS 
ie WHEN A START BIT IS RECEIVED AND 
;* CLEARS WHEN RCVRDONE = RCSR 7 = SETS 
FF TARAS AAA HARERAAAAKAEKEHEKAEKEHHAEEAKEHAEEAEKEREREEKREREEREREREE EEE 
TST14: SCOPE 
174576 MOV #10,STIMES 3300 10 ITERATIONS 
174610 MOV #14,$STESIN sSET TEST NUMBER IN APT MAIL BOX 
IFB CONSOLE EQ #TRUE OR #MAINTJUMP NOTSETIN $USW 
000001 —_ SONSELS -OTRUS 
174612 BIT #MAINT JUMP, SUSWR 
BNE $66 
$65: 
EXIT TEST 
174542 MOV #1,STIMES 
BR TST15 s2rEXIT THIS TEST 
ENDIF 
$66: 
IF #APTENV SETIN SENV THEN 
174566 BIT #APTENV, SENV 
BEQ $67 
EXIT TEST 
174522 MOV #1,STIMES 
BR TST15 szcEXIT THIS TEST 
ENDIF 
$67: 
LET @TCSR := @TCSR SET.BY #MAINT 
174616 BIS #MAINT,aTCSR 
LET RO := #CLR 
MOV #CLR,RO 
LET R1 := #0 
CLR R1 
;LOAD A CHARACTER INTO TBUF 
sWALT FOR RCVRACT TO SET 
;SEND A CHARACTER 
LET aTBUF :B= #0 
CLRB aTBuF 
REPEAT 
$70: 
IF #RCVRACT SETIN @RCSR THEN 
174572 BIT #RCVRACT,@RCSR 
BEG $71 
LET RO := #SET 
MOV #SET,RO 
ELSE 
BR $72 
$71: 


LET RI := RI + #1 
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(7) 004476 005201 


(4) 004500 020027 


(7) 004522 042777 
(1) 004530 104075 


(5) 004532 012767 
(3) 004540 000455 


4 
(6) 004542 032777 
(9) 004550 001421 


84 
(6) 004552 032777 
eux 004560 001414 


62 
(6) 004562 032777 
(9) 004570 001410 


S 
R 
vw 
™ 
fh 


72 
(7) 004572 042777 
90 00 
104076 


(5) 004602 012767 
(3) 004610 000431 


94 
(4) 004612 


& SAS 
2~ 
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177777 
000160 


000152 


000004 


000001 


004000 


000200 


004000 


000004 


000001 


174534 


174420 


174510 


174500 


174470 


174464 


174350 


mf aie | 


$72: 


$73: 


$74: 


$75: 


$100: 


kK, 4 
11:37 PAGE 169-1 
TEST THAT RCVRACT = RCSR 11 = SETS 
INC R1 
ENDIF 
UNTIL RO EQ #SET OR R1 HI MAX 
CMP RO, #SET 
BEQ $73 
CMP R1,MAX 
BLos «$70 
IF R1 HI MAX THEN 
CMP R1,MAX 
BLOS $74 
:1T NEVER SET 
*RCVRACT DID NOT SET IN RCSR. 
: CAN NOT LEAVE WITH MAINT SET 
LET ° aTCSR := a@TCSR CLR.BY #MAINT 
BIC #MAINT,aTCSR 
ERRHRD 75,, DIDNOT 
ERROR 75 
EXIT TEST 
MOV #1,$TIMES 
BR TST15 sszEXIT THIS TEST 
ENDIF 
sCHECK FOR TIMING OF RCVRACT. CLEARING 
SVS RCVRDONE SETTING 
WHILE #RCVRACT SETIN aRCSR DO 
BIT #RCVRACT,aRCSR 
BEQ $76 
IF #RCVRDONE SETIN @RCSR THEN 
BIT #RCVRDONE ,aRCSR 
BEQ $77 
IF #RCVRACT SETIN @RCSR THEN 
BIT #RCVRACT,@RCSR 
BEQ $100 
: RCVRDONE E AND RCVRACT 
: CAN Rot LEAVE WITH MAINT SET 
: LET  @TCSR := aTCSR CLR.BY #MAINT 
BIC #MAINT,aTCSR 
ERRHRD 76, DONEACT 
ERROR 76 
ZNO USE CONTINUING 
EXIT TST 
MOV #1, STIMES 
BR TST15 srzEXIT THIS TEST 
ENDIF 
ENDIF 


SEQ 0049 


CNDVCA.P11 
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poses 
004612 
004614 
004614 
14 


004622 


004644 


004644 
004644 


004650 
004650 
004656 


004674 


000753 


032777 
001010 


042777 
104077 


012767 
000414 


017700 


032777 
001404 


042777 
104100 


000401 
070000 


MACY11 30(1046) 
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000200 


000004 


000001 


174412 


000200 


000004 


174436 


174432 


174316 


174402 


174376 


aie | 


$76: 


$101: 


$102: 
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TEST THAT RCVRACT = RCSR 11 = SETS 
ENDDO 
BR $75 
RCVRACT = 0 NOW. 
iF #RCVRDONE NOTSETIN @RCSR THEN 
BIT #RCVRDONE ,aRCSR 
BNE $101 
at DID NOT SET IN RCSR 
; CAN NOT LEAVE WITH MAINT SET 
LET atCSR = @TCSR CLR.BY #MAINT 
BIC #MAINT,ATCSR 
ERRHRD 77,,DIDNOT 
ERROR 77 
EXIT TEST 
MOV #1,STIMES 
BR TST15 szcEXIT THIS TEST 
ENDIF 
sTEST THAT READING THE RECEIVER 
sBUFFER CLEARS RCVRDONE 
READ CHAR. 
LET RO: = @RBUF 
MOV @RBUF ,RO 
IF #RCVRDONE SETIN @RCSR THEN 
BIT #RCVRDONE ,A@RCSR 
BEQ $102 
sRCVRDONE DID NOT CLEAR IN RCSR 
3; CAN NOT LEAVE WITH MAINT SET 
LET @TCSR := aTCSR CLR.BY #MAINT 
BIC #MAINT,aTCSR 
ERRHRD 100, ,DIDNOT 
ERROR 100 
ENDIF 
EXIT 
BR TST15 s:cEXIT THIS TEST 
MAX: 70000 


ENDTST 


SEQ 0050 


re nn 


| 
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\CNDVCA.P11  27=DEC~82 11:36 TEST THAT RCVRACT = RCSR 11 = SETS SEQ 0051 
B 
9731 RRR R REAR EREA EERE TREE EERE AREER EAE EEEEEAEREREREEREREE EEE 
i 9732 TeeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeetetteeeeeeneeeeeeeeeeenees 
> . SSTEST 15 TEST THE OVERRUN BIT - RBUF 14 
(3) FRAP RRERAERERRE RARER E REE E AEE EAE E AAR EREEEREREEAREREAEE EEE EERE 
(2) 004674 000004 1$115: SCOPE 
(1) 004676 012767 000010 174254 MOV -#10,STIMES _;;D0_10_ ITERATIONS 
gi), 004706 012767 000015 174266 MOV #IS.STESTN «SET TEST NUMBER IN APT MAIL BOX 
9738 004712 IF #ERRBITS NOTSETIN $USWR ORB CONSOLE EQ #TRUE 
(6) 004712 032767 100000 174300 BIT #ERRBITS, SUSUR 
(8) 004720 001404 BEQ 
(6) 004722 126727 004173 000001 CMPB CONSOLE, #TRUE 
(9) 004730 001004 BNE $104 
(6) 004732 $103: 
9739 004732 EXIT TEST 
(5) 004732 012767 000001 174220 Mov #1, STIMES 
(3) 004740 000547 BR —s«TST16 sisEXIT THIS TEST 
9740 004742 ENDIF 
(4) 004742 $104: 
$741 004742 IF #MAINTJUMP NOTSETIN SUSWR THEN 
(6) 004742 032767 040000 174250 BIT #MAINTJUMP, SUSUR 
(9) 004750 001004 BNE $105 
9742 004752 EXIT TEST 
(3) 004752 012767 000001 174200 Mov «#1, STIMES 
(3) 004760 000537 BR s«TSST16 se:EXIT THIS TEST 
9743 004762 ENDIF 
gif) 004762 $105: 
9745 004762 LET aTCSR := aTCSR SET.BY #MAINT 
giZ, 904762 052777 000004 174274 BIS - #MAINT, aTCSR 
9747 
9748 
9749 004770 BGNSUB 
(3) 004770 012767 004776 174112 MOV «#64, SLPE 
9750 [OUTPUT 2 CHARACTERS WITH 
9751 TAMPLE DELAYS BETWEEN FOR RECEPTION. 
9752 STHIS SHOULD AN CAUSE OVERRUN ERROR. 
9754 :OQUTPUT 1 CHARACTER 
9755 004776 LET aTBUF :B= #0 
(4) 004776 105077 174266 CLRB = aTBUF 
9756 :GO_AWAY FOR 200 M SEC 
9757 005002 WAITMS 200. 
(4) 005002 010546 Mov RS, = (SP) 
(5) 005004 012745 000310 MOV #200. «=(R5) 
(4) 005010 004767 003556 JR PC ATT 
off, 005014 012605 MOV (SPD +,R5 
9759 :QUTPUT 2ND CHARACTER 
9760 005016 LET aTBUF :B= #0 
(4) 005016 105077 174246 CLRB = aTBUF 


9761 LET OVERRUN HAPPEN 


| MAINDEC=11=CNDVC~A 
“CNDVCA.P11 


9762 





| 


005022 


005034 


005036 
005036 


005042 
005042 
005046 


005050 


005124 


005124 
005124 
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010546 


012605 


017704 


032704 
001010 


042777 
104101 


012767 
000474 


012767 


032704 
001010 


042777 
104102 


012767 
000456 


012767 
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174220 


040000 


000004 


000001 


005076 
100000 


000004 


000001 


005132 


174206 


174072 


174012 


174152 


174036 


173756 


DS ae 


$106: 


$107: 


4 
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TEST THE OVERRUN BIT = RBUF 14 


MOV 


BIT 
BNE 


BIC 
ERROR 


MOV 
BR 


MOV 


WAITMS 200. 


B35 ee tRS) 
PC,WAIT 
ATS RS 
:READ BUFFER AND ERROR BITS 
LET R4 := @RBUF 
@RBUF ,R4 
s1T DIDN'T SET 
IF #ORERR NOTSETIN R4 THEN 
#ORERR,R4 
$106 
ZORERR DID NOT SET IN RBUF 
= CAN NOT LEAVE WITH MAINT SET 
LET ° a@TCSR := aTCSR CLR.BY #MAINT 
#MAINT,aTCSR 
ERRHRD 101,,DIDNOT 
101 
:NO USE COMPOUNDING ERRORS 
EXIT TST 
#1,$TIMES 
TST16 sigEXIT THIS TEST 
ENDIF 
ENDSUB 
sNOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
BGNSUB 
#64$,SLPERR 
IF #ERROR NOTSETIN R4 THEN 
#ERROR,R4 
$107 
;ERROR DID NOT SET IN RBUF 
: CAN NOT LEAVE WITH MAINT SET 
LET ° aTCSR := aTCSR CLR.BY #MAINT 
#MAINT,aTCSR 
ERRHRD 102,,DIDNOT 
102 
:-WHEN ORERR SET. 
*GET OUT NOW. 
EXIT TST 
#1, $TIMES 
TST16 siEXIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 
#64$,SLPERR 


;CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


SEQ 0052 


| 
| 
|MAINDEC=11=CNDVC=A 
[CNDVCA.P11 — 27=DEC=82 11:36 
9797 005132 
| (6) 005132 032777 040000 
| (9) 005140 001010 
| 9798 
| 9799 
| 9800 
9801 005142 
(7) 005142 042777 000004 
9802 005150 
(1) 005150 104103 
9803 
9804 005152 
(5) 005152 012767 000001 
(3) 005160 000437 
9805 005162 
(4) 00516 
9806 005162 
9807 
9808 005162 
(5) 005162 012767 005170 
9809 
9810 
9811 
9812 005170 
(4) 005170 105077 174074 
9813 
9814 005174 
(4) 005174 01054 
(5) 005176 012745 000310 
(4) 005202 004767 003364 
(4) 005206 012605 
9815 
9816 005210 
(6) 005210 032777 040000 
(9) 005216 001410 
9817 
9818 
9819 005220 
(7) 005220 042777 000004 
9820 005226 
(1) 005226 104104 
9821 
9822 
9823 
9824 005230 
(5) 005230 012767 000001 
(3) 005236 000410 
9825 005240 
(4) 005240 
9826 
9827 005240 
(6) 005240 032777 100000 
9) 005246 001404 


_ 


MACY11 30(1046) 


174122 


174114 


174000 


173720 


174044 


174036 


173722 


174014 


5 
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$110: 


$111: 


TEST THE OVERRUN BIT = RBUF 14 


BIT #ORERR , @RBUF 
BNE $110 


BIC #MAINT,ATCSR 


SEQ 0053 
IF #ORERR NOTSETIN @RBUF THEN 


READING RBUF CLEARED ORERR. 
: | NOT LEAVE WITH MAINT SET 
LET @TCSR := @TCSR CLR.BY #MAINT 


ERRHRD 103,1TCLRED 


ERROR 103 
z;SKIP_REST OF TEST 
EXIT TEST 
MOV #1,STIMES 
BR TST16 s3cEXIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 


MOV #64$,,SLPERR 


sNOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


CLRB =. aT BUF 
MCV 

MOV 8360 oe tes) 
JSR PC WAIT 


MOV (SP)+,R5 


BIT #ORERR , @RBUF 
$111 


BIC #MAINT aTCSR 
ERROR 104 


MOV #1, STIMES 


3SEND A CHARACTER AROUND. 
LET @TBUF :B= #0 


:LET IT CIRCULATE 
WAITMS 200. 


IF MORERR SETIN @RBUF THEN 


sORERR DID NOT CLEAR IN RBUF 
; CAN NOT LEAVE WITH MAINT SET 
LET @TCSR := @TCSR CLR.BY #MAINT 


ERRHRD 104,,DIDNOT 


pt RECEIVING ANOTHER CHAR 
SKIP ~~ REST 


BR TST16 secEXIT THIS TEST 
ENDIF 


BIT #ERROR , @RBUF 
BEQ $112 


IF #ERROR SETIN @RBUF THEN 


ERROR DID NOT CLEAR IN RBUF 
; CAN NOT LEAVE WITH MAINT SET 
LET @TCSR := @TCSR CLR.BY #MAINT 


--c 


C_ 5 
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A - 

CNDVCA.P11 “DEC=82 11:36 TEST THE OVERRUN BIT = RBUF 14 SEQ 0054 
(7) 005250 042777 000004 174006 BIC #MAINT,@TCSR 

9831 005256 ERRHRD 105,,DIDNOT 
| of 005256 104105 ERROR 105 
| 9833 005260 ENDIF 
| 4) 005260 $112: 

9834 005260 ENDSUB 
| 9835 005260 ENDTST 
| 9836 
| 
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‘ =e 


000004 


012767 
012767 


032767 


001004 


012767 
000553 


132767 
001404 


012767 
000543 


005067 
012767 
012767 
052777 
000401 
005203 


020327 
003062 


017700 
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000010 
000916 


000200 
040000 


000001 


000001 


000001 


002614 
177777 
177777 
000004 


000017 


173646 


173670 
173702 


173714 
173704 


173634 


173660 


173614 


000270 
000264 
173670 
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TEST THE OVERRUN BIT = RBUF 14 


FARRAR AREA AERA EERE EE EEE EERE REREEEAEAEREEEEEEEEAEAAREKEEEE REE 
SReRERReeeeeReeee Reka eeeeeeeeeekekkekeeeeeeacteeeeeeeeeeeeeeee 


TSTEST 16 os aren BAUD RATE TEST 
7* EST AT ALL SPEEDS LABLE 
s* A_ COMPARISON WILL BE MADE TO SEE 
3 IME IS LESS THAN PREVIOUS. 
PEI iii iii titi ritilisiitigiiiiiiiriiiriii rier 
TST16: SCOPE 
MOV #10,$TIMES 33D0 10 ITERATIONS 
MOV #16,$TESTN 33;SET TEST NUMBER IN APT MAIL BOX 


IF #PBR NOTSETIN SUSWR OR 
BIT #PBR,SUSWR 


#MAINTJUMP NOTSETIN $U 


; CLEAR ERROR WORD 


BEQ $ 
BIT #MAINTJUMP,SUSWR 
BNE $114 
$113: 
EXIT TEST 
MOV #1,STIMES 
BR TST17 sccEXIT THIS TEST 
ENDIF 
$114: 
IFB #APTENV SETIN SENV THEN 
BITB #APTENV, SENV 
BEQ $115 
EXIT TST 
MOV #1,$TIMES 
BR TST17 szzEXIT THIS TEST 
ENDIF 
$115: 
LET ERRCHK := 40 
CLR ERRCHK 
LET OLD := #1 
LET OLD+2 := #=1 
MOV #-1,0LD+2 
LET @TCSR := @TCSR SET.BY #MAINT 
BIS #MAINT,@TCSR 
EACH BAUD RATE 
INCR R3 FROM #0 TO #15. BY #1 
CLR R3 
BR $116 
$117: 
INC R3 
$116: 
CMP R3,#15. 
BGT $120 


LET RO := @RBUF 
MOV @RBUF ,RO 


ee 
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005414 
005414 


005422 
005422 


005424 
005424 


005430 


005524 


005526 
005526 
005530 
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116377 


005002 


005077 


005067 
005067 
005702 
001014 
032777 
001403 
012702 
000404 


005267 
005567 


000762 


026767 
103001 


000414 


026767 


103001 


000403 
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005624 173644 


173640 


000210 
000206 


000200 173606 


000001 


000156 
000154 


000146 000150 


000134 
000122 


000136 
000124 
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PROGRAMMABLE BAUD RATE TEST 


MOVB 


CLR 


CLR 


CLR 
CLR 
$121: 
TST 
BNE 
BIT 
BEQ 
MOV 
BR 
$123: 
INC 
ADC 
$124: 


$722: 


$125: 


$127: 


RATES(R3) ,aTCSRHI 
BIT 

aTBUF 

NEW 


NEW+2 


2 
RDONE ,@RCSR 


Az ww 


IT 
12 
RCV 
123 
#1,B1T 
$124 


NEW 
NEW+2 


$121 
NEW+2 ,OLD+2 
$125 
$126 


NEW+2 ,0LD+2 
$127 


NEW,OLD 
$127 


$130 


SEQ 0056 


CHANGE BAUDE RATE 
LET STCSRHI :B= RATES(R3) 


:FLAG 
LET BIT := #0 


;OUTPUT THE CHARACTER 
LET aTBUF := #0 


s INITIALIZE COUNTER 
LET NEW := #0 


LET NEW+2 := #0 
WHILE BIT EQ #0 DO 


IF #RCVRDONE SETIN @RCSR THEN 


SOTHERWISE=- rye TIME 
LET NEW := NEW + #1 


LET NEW+2 := 
ENDIF 


SIGNALS DONE 
ENDDO 


NEW+2 + CARRY 


IF NEW+2 LO OLD+2 THEN 


3; OK 
ELSE 


NEW+2 >= OLD+2 
ir NEW+2 EQ Witte AND NEW LO OLD THEN 


70K 
ELSE 





PS 
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CNDVCA.P11 27=DEC=82 11:36 PROGRAMMABLE BAUD RATE TEST SEQ 0057 
9901 sNEW+2 > OLD+2 OR 
9902 s(NEW*2 = OLpe2 AND 
9903 + NEW >= OLD) 
9904 ‘BAUD RATE DIDN'T CHANGE 
9905 005530 LET ERRCHK := #BIT2 ; SET ERROR INDICATOR 
(4) 005530 012767 000004 002430 MOV #B1T2,ERRCHK 
9906 005536 ENDIF 
(4) 005536 $130: 
9907 005536 ENDIF 
(4) 005536 $126: 
9908 ;UPDATE OLD TIME 
9909 005536 LET OLD := NEW 
(4) 005536 016767 000102 000104 MOV NEW, OLD 
9910 005544 LET OLD+2 := NEW+2 
94? 005544 016767 000076 000100 MOV NEW+2 ,OLD+2 
9912 005552 ENDINC ;BAUD RATE 
(4) 005552 000712 BR $117 
(3) 005554 $120: 
9913 005554 LET R3 :B= SUSWR+1 AND #17 : PUT BAUD BACK 
(4) 005554 116703 173441 MOVB $USWR+1,R3 
(7) 005560 110346 MOVB _R3,=(SP) 
(7) 005562 142716 000017 BICB 417, (SP) 
(7) 005566 142603 BICB = (SP)+,R3 
9914 005570 LET R3 := R3 CLR.BY #177400 
(7) 005570 042703 177400 BIC #17760C,P3 
9915 005574 LET @TCSRHI :B= RATES(R3) : LIKE HE WANTED IT 
94? 005574 116377 005624 173464 MCVB _—RATES(R3) ,aTCSRHI 
9917 : CAN NOT LEAVE WITH MAINT SET 
9918 005602 LET  aTCSR := aTCSR CLR.BY #MAINT 
(7) 005602 042777 000004 173454 BIC #MAINT, aTCSR : 
9919 005610 If #BIT2 SETIN ERRCHK THEN 
(6) 005610 032767 000004 002350 BIT #B1T2, ERRCHK 
(9) 005616 001401 BEOQ $131 
9920 REPORT DEFERED ERROR 
9921 005620 ERRHRD 126 
(1) 005620 104126 ERROR 126 
9922 005622 ENDIF 
(4) 005622 $131: 
9923 005622 EXIT | ;SKIP TABLE 
93) 005622 000414 BR TST17 s:cEXIT THIS TEST 
9925 005624 RATES: ;A TABLE OF THE ACTUAL BYTES TO MOVE INTO THE 
9926 ;UPPER err OF XCSR FOR EACH BAUD RATE 
9927 yt* NOTE: THE VALUE INDICATED IN THE COLUMN OFFSET 
9928 pte INTO TABLE’ CAN BE PLACED INTO BITS<11:8> 
9929 pee OF LOCATION "$SUSWR' TO CAUSE THE CORROSPONDING 
9930 pte BAUD TO BE SELECTED IN THE DLV11-F UPON 
931 jee COMPLETION OF THIS TEST. 
9933 : BAUD OFFSET INTO TABLE 
9934 005624 010 ROOSO: .BYTE 010 : 50 0 
9935 005625 030 ROO70: .BYTE 030 : 70 1 
00562 050 RO110: .BYTE 050 ; 110 2 
9937 00562 070 RO135: .BYTE 070 ; 135 





no 
MAINDEC=11=CNDVC=A MACY11 30(1046) i 11:37 PAGE 171-3 
CNDVCA.P11 27-DEC-82 11:36 OGRAMMABLE BAUD "Rai TEST SEQ 0058 


99 005630 110 RO15O: .BYTE 110 : 150 4 

9939 005631 130 RO300: .BYTE 130 : 300 5 

9940 005632 150 RO600: .BYTE 150 : 600 6 

9941 005633 170 RO200: .BYTE 170 : 1200 7 

9942 005634 210 R1800: .BYTE 210 : 1800 10 
9943 005635 230 R2000: .BYTE 230 : 2000 11 
9944 005636 250 R2400: .BYTE 250 : 400 12 
9945 005637 270 R3600: .BYTE $13 ; 600 13 
9946 005640 310 R46800: .BY 10 : 4890 14 
9947 005641 330 R7200: .BYTE 330 : 7200 15 
9948 005642 350 R9600: YTE 350 : 9600 16 
a4 005643 370 R10000: .BYTE 370 : 19200 17 
9951 005644 000000 000000 NEW: 0.0 

9952 005650 000000 000000 OLD: 0,0 

9953 005654 ENDTST 
9954 

9955 
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9958 
9963 
9971 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
iH 005654 000004 
(1) 005656 012767 
(2) 005664 012767 
9976 
9977 
9978 
9979 005672 
(6) 005672 032767 
(9) 005700 001404 
9980 005702 
(5) 005702 012767 
(3) 005710 000532 
9981 005712 
(4) 005712 
9982 
9983 
9984 
9985 571 
(4) 005712 005067 
9986 
9987 
9988 005716 
(4) 005716 016703 
9989 
9990 005722 
(7) 005722 062703 
9991 
9992 572 
(5) 005726 010146 
($5) 005730 010301 
(5) 5732 012721 
(5) 57 012711 
(5) 005742 012601 
9993 005744 
(5) 005744 012767 
9994 
9995 005752 
(3) 005752 010546 
(7) 005754 012745 
(6) 005760 016745 
(5) 005764 012745 
(4) 005770 012745 
(3) 005774 004767 
(3) 006000 012605 
9996 


ve Hh 30(1046) 


000010 
000017 


000001 


000001 


002742 


173334 


000004 


010652 
000300 
005752 


177777 


002314 


173314 


173250 


173136 


dao te 


116 


H 
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PROGRAMMABLE BAUD RATE TEST SEQ 0059 


FRAME AAAEAEHAHAEAAATEAAEHEHAEAEAAARAAAAREAAEAEHAEAAA AREER EEEEEE 
scree? iF FRAMGHITIER INTERST LOciC tee. 


T*TEST 17 


38 
3t 
3t 
3* 
:* 
TS 


117: 


$132: 


SCOPE 


MOV 
MOV 


BIT 
BEQ 


TRANSMITTER INTERRUPT hey TEST 
LOGICALLLY THIS IS 4 SEPARATE TEST 
A) DOES lontty oe INTERRUPT Logie WORK 


B) AT PRIORITY 


C) AND ONLY ONCE 


D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


#APTENV, SENV 
$132 


#1, STIMES 
TST20 


INTFLAG 


DLVEC,R3 
#4 ,R3 


RI .=(SP) 
#INTSRV, (R1)¢ 
#PR6, (RI) 
(SP)+,R1 


#64$,,SLPERR 


(SP), R5 


MARRBARARAAZAARAAASZARAAAALALASLALAAAAE SALA A AAAS ALAA RASA SRSA AAAS AS AO 


3;D0 10 ITERATIONS 
3:SET TEST NUMBER IN APT MAIL BOX 


IF #APTENV SETIN SENV THEN 


EXIT TEST 
z3cEXIT THIS TEST 
ENDIF 


; CLEAR "INTERRUPT OCCURED’ FLAG 
LET INTFLAG := #0 


eh VECTOR ADDRESS 
LET R3 := DLVEC 


:FOR Hy A TRANSMITTER 
LET R3 z= R3 + 


SET VECTOR TO POINT TO TRANS.SRV AT PRI 
SETVEC RS, #INTSRV, #PR6 


BGNSUB 


33 MAKE SURE THAT TRANSMITTER READY IS SET 
CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 
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S 


eee ee 
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888.888... 


—— 
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042777 


012746 
012746 
000002 


052777 


010546 
012745 
004767 
012605 
026727 
001406 
005767 
001002 


104106 
000401 


104107 


012767 
005067 
042777 


012746 
012746 
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000100 


000000 
006022 
000100 
000310 
002530 


002610 


002600 


006076 
002556 
000100 


000000 
006122 


173254 


173234 


000001 


173012 


173154 


Mf Se 


65$: 


$134: 


$135: 
$133: 


I 5 
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TRANSMITTER INTERRUPT LOGIC TEST 


BIC 


MOV 
MOV 
RTI 


ERROR 


MOV 
CLR 
BIC 


MOV 
MOV 


#XMITIE ,ATCSR 


#PRO,=(SP) 
#65$,-(SP) 


#XMITIE,A@TCSR 


we 
wn 


107 


; CLEAR 


LET aTCSR 


3SET 
3;PUT NEW PS ON STACK 
3;PUT NEW PC ON STAC 
:;POP NEW PC AND PS 


NOW SET 
LET @TCSR := 


;LET INTERRUPT HAVE TIME TO OCCUR 


WAITMS 20 


DID EXACTLY Lore OCCUR 


IF INTFLA 


It 10 0 
K 


0. 


G NE #1 THEN 


3;NO = WAS IT 0 OR MORE THAN ONCE 
if INTFLAG EQ #0 THEN 


INTERRUPT ENABLE 
:= @TCSR CLR.BY #XMITIE 


IE. BIT 
@TCSR SET.BY #XMITIE 


SEQ 0060 


tee’? DID 1 ere IN TIME 


ELSE 


3 TWICE 
S TRANSMITTER INTERRUPTED TWICE 
ERRHRD 107,, TWICE 


ENDIF 
ENDIF 


RRHRD 106,,DI1D 


ENDSUB 
; INTERRUPT WITHOUT INTERRUPT ENABLE SET 
BGNSUB 


#64$,SLPERR 
INTFLAG 
#XMITIE,@TCSR 


#PRO,-(SP) 
#65$,-(SP) 


zCLE 
LET INTFLA 
zCLE 
LET aTCSR : 


::PUT NEW PS ON § 
+:PUT NEW PC ON STAC 


yh my * ate OCCURED® FLAG 


AR INTERRUPT ENABLE 
= @TCSR CLR.BY #XMITIE 


<1 A iatmaatia SHOULD OCCUR. 


K 


a ee 
i 
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(1) 006120 000002 
(1) 006122 

ioe 

10047 006122 
(4) 006122 01054 
(5) 006124 012745 000002 
(4) 006130 004767 002436 
(4) 006134 012605 

10048 006136 
(6) 006136 005767 002516 
(9) 006142 001401 

10049 

10050 006144 
(1) 006144 104110 

10051 006146 
(4) 006146 

10052 006146 
(1) 006146 000005 

10053 006150 

10054 

10055 006150 
(3) 006150 010146 
(3) 006152 010246 
(5) 006154 012701 000003 
(5) 006160 010102 
(8) 006162 062702 000002 
(5) 006166 010221 
(5) 006170 005011 
(3) 006172 012602 
(3) 006174 012601 

10056 

10057 006176 

10058 

10059 

10060 

10061 

1006 


27-DEC-82 
117 


65$: 


$136: 


RTI 


J 
11:37 PAGE 172-2 
TRANSMITTER INTERRUPT LOGIC TEST 


R5,-(SP) 
#2,-(R5) 
PC WAIT 
(SP)+,R5 


INTFLAG 
$136 


110 


R1,=(SP) 
R2.=(SP) 
#R3,R1 


#2,R2 
R2,(R1)+ 
(Ri) 
(SP)+,R2 
(SP)+,R1 


3;POP NEW PC AND PS 


;DARE IT TO HAPPEN 
WAITMS 2 


IF INTFLAG NE #0 THEN 
; INTERRUPT OCCURED WITH I E CLEARED 
ERRHRD 110,NOTENAB 
ENDIF 
BRESET 
ENDSUB 
¢ _ VECTOR AREA 


CLRV 
fit R1 ON STACK 
PUSH R2 ON STACK 


77POP STACK INTO R2 
33POP STACK INTO R1 


ENDTST 





MAINDEC=11=CNDVC=A MACY11 30(%040> 27-DEC-82 11:37 PAGE 173 
CNDVCA.P11 = 27=DEC=82 11:36 117 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0062 
10065 
10070 FF UAAA AAA AREER ERE REE EEE EEEAEEHEEEERERAAEREEEERERERAHEEEE EEE 
10076 i. 6 Ui ia it t:!C!C:C:*~<“‘=<=i=‘S™CSCS™~™*# 
(3) S*TEST 20 RECEIVER INTERRUPT LOGIC TEST 
(4) te THIS TEST COVERS ALL OF THE RECEIVER 
(4) it SIDE OF THE INTERRUPT LOGIC IN 
(4) : CHARACTER MODE. 
(3) 2 : TPR RAZASZALALZALALZAAALALLALLAALLALALEL TEARS ERE RTE ERE SR ESAT RRA SS SG 
(2) 006176 000004 T$120: SCOPE 
(1) 006200 012767 000010 172752 MOV #10, $TIMES £300 10 ITERATIONS 
(2) 006206 012767 000020 172764 MOV #20.$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
10081 006214 IF #MAINTJUMP NOTSETIN $USWR ORB CONSOLE EQ #TRU 
(6) 214 032767 040000 172776 BIT #MAINTJUMP, SUSWR 
(8) 006222 001404 BEQ 
(6) 006224 126727 002671 000001 CMPB —«- CONSOLE, #TRUE 
(9) 006232 001002 BNE $140 
(6) 006234 $137: 
10082 006234 000167 000242 JMP TST21 : EXIT TEST 
10083 006240 ENDIF 
(4) 006240 $140: 
10084 
10085 CLEAR INTERRUPT OCCURED FLAG 
10086 SET RECEIVER INTER. VECTOR 
10087 006240 SETVEC DLVEC DINTERY PRO 
(5) 006240 010146 MOV R1,-(SP) 
(5) 006242 016701 173010 MOV DLVEC,R1 
(5) 006246 012721 010652 MCV #INTSRV, (R1)+ 
(5) 006252 012711 000300 MOV #PR6, (RI) 
(5) 006256 012601 MOV (SP)+,R1 
10088 :PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
10089 006260 BGNSUB 
(5) 006260 012767 006266 172622 MOV #64$,$LPERR 
10090 006266 LET INTFLAG := 40 
(4) 006266 005067 002366 CLR INTFLAG 
10091 :SET MAINT. BIT 
10092 006272 LET a@TCSR := aTCSR SET.BY #MAINT 
(7) 006272 052777 000004 172764 BIS #MAINT,@TCSR 
10093 sCLEAR INTERRUPTS 
10094 006300 LET @RCSR := ARCSR CLR.BY #RCVRIE 
(7) 006300 042777 000100 172752 BIC #RCVRIE,ARCSR 
10095 ZCHANGE PRIORITY 
10096 22-10 0 
10101 006306 012746 000000 . MOV #PRO,-(SP) ::PUT NEW PS ON STACK 
(1) 006312 012746 006320 , MOV #65$,-(SP) *:PUT NEW PC ON STACK 
(1) 006316 000002 RTI +:POP NEW PC AND PS 
(1) 006320 65$: 
10106 
10107 sSEND A CHARACTER 
10108 006320 LET @TBUF :B= #0 
(4) 006320 105077 172744 CLRB = aTBuF 
10109 “WAIT A MAXIMUM 
10110 :0F 500 MSEC FOR 
10111 :RCVR DONE TO SET IN RCSR 
10112 006324 CALL TIMER IN sis00" #RCVRDONE ,RCSR,#SET> 
(3) 006324 010546 MOV R5,-(SP) 


so 


MAINDEC=11=CNDVC~A 
| CNDVCA.P11 


(7) 
(6) 


~ 
uw 
~ 


~m ae? > a) ot 


22 


10134 


NWA 


2 — ~~ 
oo Oo°OCOoO Ooo 
eA es OO OO 


SRVNAROW 


2 
006410 


006412 
0 2 


006442 
006442 


006450 


012745 


012605 
05e"'77 
010546 
012605 
017700 


026727 
001411 


042777 


005767 
001002 


104111 


000401 


104112 


042777 


042777 


MACY11 30(1046) 


27-DEC-82 11:36 


177777 
001742 
000100 172676 


000001 
002176 


172660 


002252 000001 


000004 
002234 


172644 


000100 172616 


000004-. 172614 


27-DEC-82 11:37 PAGE 173-1 
T20 RECEIVER INTERRUPT LOGIC TEST 


MOV #SET,<(R5) 
MOV RCSR,=(R5) 
MOV #RCVRDONE ,=(R5) 


MOV #500, =(R5) 
JSR PC, TIMER 


MOV (SP)+,R5 
BIS #RCVRIE,@RCSR 
MOV R5,-(SP) 
MOV #1,-(R5) 
JSR PC WAIT 
MOV (SP)+,R5 
MOV @RBUF ,RO 
CMP INTFLAG,#1 
BEQ $141 
BIC #MAINT,@TCSR 
TST INTFLAG 
BNE $142 
ERROR 111 
BR $143 
$142: 
ERROR 112 
$143: 
$141: 
BIC #RCVRIE ,ARCSR 
BIC #MAINT,@TCSR 


LET @RCSR : 


LET atcsk : 


LET R4 := 


zSET INTERRUPT ENABLE 
LET ARCSR := @RCSR SET.BY #RCVRIE 


;LET IT COME IN. 
WAITMS 1 


LET RO := @RBUF ; CLEAR RCVRDONE 


3;D1D HE DO IT RIGHT? 
IF INTFLAG NE #1 THEN 


= NONE OCCURED 
_._ 3 CAN NOT Lee WITH MAINT SET 
LET “ a@TCSR := aTCSR CLR.BY #MAINT 
IF INTFLAG EQ #0 THEN 
RECEIVER DID NOT INTERRUPT IN TIME 
ERRHRD 111,,DIDNOT 


zs TWICE OR MORE 
ELSE 


sRECEIVER a Ht ng 4 TWICE 
ERRHRD 112,,TWIC 


ENDIF 
ENDIF 


ENDSUB 


CLEAR THE WORLD 
= @RCSR CLR.BY #RCVRIE 


RESE? MAINT. BIT 
= @TCSR CLR.BY #MAINT 


aDLVEC 


SEQ 0063 


MAINDEC=11=CNDVC-A 


MACY11 30(1046) 


.CNDVCA.P11 27-DEC=82 11:36 


10 


SARA RRR RRR OR 
SWWUVMNOUYVIWWE 
Uw wwe yewuvuww Pwo 


= 
oO 


172602 


000004 
000002 


27=-DEC- 
T20 


Ld 
82 11:37 PAGE 173-2 . 
RECEIVER INTERRUPT LOGIC TEST 


MOV @DLVEC ,R4 


MOV R1,-(SP) 
MOV R2,=(SP) 


CLRVEC _R4 
33;PUSH R1 ON STACK 
33PUSH R2 ON STACK 


MOV #R&,R1 
MOV R1,R2 
ADD #2,R2 
MOV R2,(R1)+ 
CLR (Ri) 


MOV (SP)+,R2 


33POP STACK INTO R2 
MOV (SP)+,R1 


33;POP STACK INTO R1 
ENDTST 


SEQ 0064 
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006550 
006550 


006554 
006554 


006626 
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000004 


012767 
012767 


032767 
001004 
012767 
000526 
005067 


052777 


012746 
012746 
000002 


162705 
004767 
012501 


017700 
005002 
000401 
005202 


020227 
003062 


mc 30(1046) 
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000001 
000021 


040000 
002365 


000001 


001412 


000004 


000000 
006574 


000002 
001666 


172450 


000377 


172446 
172460 


172472 
000001 


172412 


172502 


27-DEC-82 11:37 PAGE 174 
T20 RECEIVER INTERRUPT LOGIC TEST SEQ 0065 


ped eeNeRAeeeeeee eee eeeeeeeeeeeteeeeeeeeeeeteeteeeeenetedter 
fp ARReeeeeeeeeeeReeeeeeeeeeeeeeteeeeeeeerteneneneeneeeeeeeeners 
s*TEST 21 TEST ACTUAL DATA TRANSFERED 

;* NON-INTERRUPT MAINTENANCE BIT SET 


° 
4 FERPA EERE E ARERR E REAR EE REET EEA REAR E EERE E REE REEREREE REE 


T$121: SCOPE 


MOV #1, $TIMES :;D0 1 ITERATION 
MOV #21,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

IF #MAINTJUMP NOTSETIN $USWR ORB CONSOLE EQ #TRU 
BIT #MALNT JUMP, SUSUR 


BEQ $ 
CMPB CONSOLE , #TRUE 
BNE $145 
$144: 
EXIT TEST 
MOV #1,STIMES 
BR TST22 sccEXIT THIS TEST 
ENDIF 
$145: 
LET ERRCHK := #0 
CLR ERRCHK 
:SET MAINT. BIT 
LET @TCSR := @TCSR Sti.oy #MAINT 
BIS #MAINT, @TCSR 
pate PRIORITY 
MOV #PRO,-(SP) szPUT NEW PS ON STACK 
MOV #64$,-(SP) szPUT NEW PC ON STACK 
648 RTI :;POP NEW PC AND PS 
;GET DATA MASK. 
CALL DATLNG OUT <R1> 
SUB #1%2,R5 
JSR PC,DATLNG 
MOV (R5)+,R1 
LET RO := @RBUF ; START CLEAR 
MOV a@RBUF ,RO 
;ALL BINARY CHAR. 
INCR R2 FROM #0 TO #377 BY #1 
CLR R2 
R $146 
$147: 
INC R2 
$146: 
CMP R2,#377 
BGT $150 


; TRANSMIT CHAR IN R2 
CALL TIMER IN <#500,#XMITRDY.TCSR,#SET> 


; 
} 


ee ee me ee ee Se .- - en ea ae a _ 


: B. 6 
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i : 


CNDVCA.P11 27=DEC=82 11 TEST ACTUAL DATA TRANSFERED SEQ 0066 
/ (3) 006626 ©01054 MOV RS,=(SP) 
(7) 006630 012745 177777 MOV #SET,~(R5) 
| (6) 006634 «016745 «172424 MOV TCSR_=(R5) 
©) 0 012745 000200 MOV #XMITRDY,=(R5) 
(4) 006644 012745 000500 MOV =(R5) 
| (3) 006650 004767 001440 JSR PC, TIMER 
(3) 006654 012605 MOV (SP3+,R5 
10191 006656 IF ERROR THEN 
(6) 006656 103003 BCC $151 
10192 006660 LET ERRCHK := ERRCHK SET.BY #BIT3 
(7) 006660 052767 000010 001300 BIS #B1T3,ERRCHK 
10193 006666 ENDIF 
(4) 006666 $151: 
10194 
10195 s TRANSMIT iT 
10196 006666 LET @TBUF :B= R2 
10° 006666 110277 172376 MOVB _—R2, @TBUF 
10198 006672 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 006672 010546 MOV R5,-(SP) 
(7) 006674 012745 177777 MOV #SET,-(R5) 
(6) 006700 016745 172354 MOV RCSR,=(R5 
(5) 006704 012745 000200 MOV ARCVRDONE ,=(R5) 
(4) 006710 012745 000500 MCV #500,-(R5) 
(3) 006714 004767 001374 JSR PC, TIMER 
(3) 006720 012605 MOV (SP)+,R5 
10199 006722 IF ERROR THEN 
(6) 006722 103003 BCC $152 
10200 006724 LET ERRCHK := ERRCHK SET.BY #BIT4 
(7) 006724 052767 000020 001234 BIS #B1T4,ERRCHK 
10201 006732 ENDIF 
(4) 006732 $152: 
10202 sAND SAVE IT 
10203 006732 LET R3 := @RBUF 
(4) 006732 017703 172324 MOV QRBUF ,R3 
10204 
10205 
10206 sCOMPARE TO SEE IF WE RECEIVED IT ALL 
10208 ZCLEAN OFF NON-DATA BITS 
10209 *ON BOTH TRANSMITTED AND 
10210 006736 LET R4 := R2 CLR.BY R1 
(4) 006736 010204 MOV R2,R4 
(7) 006740 040104 BIC R1,R4 
10211 006742 LET R3 := R3 CLR.BY R1 
10842 006742 040103 BIC R1,R3 
10213 -RECEIVED DATA 
10214 006744 IF R4 NE R3 THEN 
(6) 006744 020403 CMP R4,R3 
(9) 006746 001410 BEQ $153 
10215 ;DATA COMPARE ERROR 
10216 : CAN NOT LEAVE WITH MAINT SET 
10217 006750 LET ° @TCSR := aTCSR CLR.BY #MAINT 
(7) 006750 042777 000004 172306 BIC #MAINT,aTCSR 
10218 006756 ERRHRD 116,COMP,SBWAS 








C. 6 
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CNDVCA.P11  27=DEC=82 11:36 121 TEST ACTUAL DATA TRANSFERED ! SEQ 0067 
(1) 006756 104116 ERROR 116 
10219 006760 EXIT TEST ; ON ERROR 
(5) 006760 012767 000001 172172 MOV so #1, STIMES 
(3) 006766 000416 BR TSf22 s:¢EXIT THIS TEST 
10220 006770 ENDIF 
(4) 006770 $153: 
10221 006770 ENDING ; R2 
(4) 006770 000712 BR $147 
(3) 006772 $150: 
10222 
10223 RESET MAINT. BIT 
10224 006772 LET aTCsR := aTCSR CLR.BY #MAINT 
(7) 006772 042777 000004 172264 BIC #MAINT,aTCSR 
- 10225 007000 IF #B1T3 SETIN ERRCHK THEN 
(6) 007000 032767 000010 001160 BIT #B1T3, ERRCHK 
(9) 007006 001401 BEQ $154 
10226 007010 ERRHRD 130 
(1) 007010 104130 ERROR 130 
| 10227 007012 ENDIF 
— -(@) 007012 $154: 
| 10228 007012 IF #BIT4 SETIN ERRCHK THEN 
(6) 007012 +032767 000020 001146 BIT § #BIT4,ERRCHK 
/ (9) 007020 001401 BEQ $155 
| 10229 007022 ERRHRD 131 
| (007022 «104131 ERROR 131 
| 10230 007024 ENDIF 
| (4) 007024 $155: 


0231 007024 ENDTST 


-MAINDEC=11=CNDVC=A MACY11 30(1046) g/-DEC“8e 11:37 PAGE 175 


CNDVCA.P11 27-DEC-82 11:36 T21 TEST ACTUAL DATA TRANSFERED SEQ 0068 
10236 
S23 FURR AAATAAREAAAAAAEAARERERETEERAAAAERERERERAEEREAE EKER Ee eeT Ee 
10242 SReeeeReeeneeeeeeeeeeeeeeenetedeeeeeeenteeeeeeteneeeeneeeteeees 
(3) SSTEST 22 TEST DATA THROUGH WRAP 
(3) SURRARARERAANAAAARARETEEREEEREREERARERAEREREERKERRERRE ERK E REE 
is 007024 000004 18122: SCOPE 
(1) 007026 012767 000001 172124 MOV #1,$TIMES 00 1 ITERATION 
(2) 007034 012767 000022 172136 MOV #22, STESTN ;SET TEST NUMBER IN APT MAIL BOX 
— 10247 007042 IF #WRAP NOTSETIN SUSWR OR #COMSPD NOTSETIN $USW 
(6) 007042 032767 020000 172150 BIT #WRAP ,SUSWR 
(8) 007050 001404 BEQ $156 
(6) 007052 032767 000100 172140 BIT #COMSPD ,SUSWR 
(9) 007060 001004 BNE $157 
(6) 007062 $156: 
10248 :CAN'T TEST WITHOUT A WRAP 
10249 007062 EXIT TST 
(5) 007062 012767 000001 172070 MOV #1,STIMES 
007070 000516 BR TST23 szcEXIT THIS TEST 
10250 007072 ENDIF 
(4) 007 $157: 
10251 ;DON" T USE MAINT. 
10252 007072 LET arcsR : = @TCSR CLR. BY #MAINT 
(7) 007072 042777 000004 172164 BIC #MAINT,@TCSR 
10253 : IF A SPECIAL TURN AROUND CARD IS 
10254 ; CONNECTED IN PLACE OF THE WRAP 


10255 t SETTING READER RUN WILL ENABLE IT 
10256 * THIS MODULE Is ONLY USED IN MANUFACTUR 
10257 t AND ONLY ON THE CONSOLE DLV11-F 
10258 : IF NO SPECIAL MODULE IS AVAILABLE, 
10259 : AND THE WRAP BIT IS SET IN $USWR 
10260 : THEN THIS TEST WILL ERROR ON THE CONSO 
10262 007100 LET @RCSR := @RCSR SET.BY #11 

(7) 007100 052777 000011 172152 BIS #11, aRCSR 
10265 ; CHANGE PRIORITY 
10269 007106 012746 000000 MOV #PRO,-(SP) s:PUT NEW PS ON STACK 

(1) 007112 012746 007120 MOV #64$.-(SP) ::PUT NEW PC ON STACK 

(1) 007116 000002 RTI ::POP NEW PC AND PS 

(1) 007120 64$: 
10274 :GET DATA MASK 
10275 007120 CALL DATLNG OUT <R1> 

(4) 007120 162705 000002 SUB #1#2,R5 

(3) 007124 004767 001342 JSR PC DATLNG 

(4) 007130 012501 MOV (R5)+,R 
10276 007132 LET RO := @RBUF ; START CLEAN 

(4) 007132 017700 172124 MOV @RBUF ,RO 
10277 NARY COUNT PATTERN 
10278 007136 INCR R2 iRom #0 TO #377 BY #1 

(4) 007136 005002 CLR R2 

(5) 007140 000401 BR $160 

(4) 007142 $161: 

(8) 007142 005202 INC R2 

(5) 007144 $160: 

(5) 007144 020227 000377 CMP R2,#377 


 cidaigdelilacacaPaa ce eaeacaaee ices 
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(7) 007150 003063 
79 


' 102 
| 10280 
10281 
| 10282 
| 10283 
10284 007152 
| "€3) 007152 010546 
| (2) 007154 012745 
| (6) 007160 016745 
| G5) 007164 012745 
| ¢&) 007170 012745 
| (3) (007174 +=004767 
| _¢3) 007200 012605 
| 10285 007202 
(6) 007202 103005 
10286 007204 104123 
10287 007206 
(5) 007206 012767 
(3) 007214 000444 
288 007216 
(4) 1 
2 


007256 012767 
067264 000420 
007266 


007266 017703 


(4) 007272 010204 
(7) 007274 040104 


(7) 007276 040103 
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177777 


001114 


000001 


172046 


177777 


001044 


000001 


171770 


171744 


171674 
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$163: 


$164: 


TEST DATA THROUGH WRAP SEQ 0069 
BGT $162 
: TRANSMIT THE CHAR. IN R2. 
; MAKE SURE IT'S READY 
CALL’ TIMER IN <#500,#XMITRDY, TCSR,#SET> 
MOV R5S,=(SP) 
MOV BSETSo(RS) 
MOV TCSR,=(R5) 
MOV #XMITRDY,-(RS) 
MOV 00,-(R5) 
JSR PC, TIMER 
MOV (SP)+,R5 
IF .ERROR THEN 
BCC $163 
ERROR 123 : TRANSMITTER NEVER BECAME READY 
EXIT TEST 
MOV #1,$TIMES 
BR TST23 sigEXIT THIS TEST 
ENDIF 
sSTART IT ON ITS WAY 
LET aTBUF :B= R2 
MOVB _—R2, @TBUF 
NOW WAIT FOR RECIEVER DONE 
tALL TIMER IN <#500, #RCVRDONE ,RCSR,#SET> 
MOV R5S,-(SP) 
MOV #SET,-(R5) 
MOV RCSR.=(R5) 
MOV #RCVRDONE ,-(R5) 
MOV #500,-(R5) 
JSR PC, TIMER 
MOV (SP)+,R5 
IF ERROR THEN 
BCC $164 
ERRHRD 124 
ERROR 124 
i RECIEVER NEVER BECAME READY 
MOV #1,STIMES 
BR TST23 :.¢EXIT THIS TEST 
ENDIF 
;RETRIEVE 
LET 83 := aRBUF 
MOV aRBUF ,R3 
sSTRIP OFF JUNK ON BOTH 
LET R4 := R2C 
MOV R2,R4 ' 
BIC R1_R4 
LET R3 := R3 CLR.BY R1 
BIC R1,R3 


a 


F_ 6 
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CNDVCA.P11  27=DEC=82 17:36 TEST DATA THROUGH WRAP SEQ 0070 
10306 
10307 :wWE HAVE TROUBLE 
10308 007300 IF R& NE R3 THEN 
(6) 007300 020403 CMP R4,R3 
(9) 007302 001405 BEQ $165 
10309 sDATA COMPARE ERROR 
10310 007304 ERRHRD 117,COMP, SBWAS 
(1) 007304 104117 ERROR 117 
10311 007306 EXIT TEST ; ON ERROR 
(5) 007306 012767 000061 171644 MOV #1, $TIMES 
(3) 007314 000404 BR TST23 srsEXIT THIS TEST 
10312 007316 ENDIF 
(4) 007316 $165: 
10313 
10314 007316 ENDINC ; R2 
(4) 007316 000711 BR $161 
(3) 007320 $162: 
10315 : NOW THAT THE TEST IS DONE 
10316 + WE WILL TOGGLE READER RUN 
10317 : TO TURN OFF THE SPECIAL MODULE. 
10318 007320 LET @RCSR := aRCSR SET.BY #11 
10643 007320 052777 000011 171732 BIS #11,aRCSR 
10320 
10321 
10322 007326 ENDTST 
10323 
10324 
10325 
10326 


re SS SSS SSS 
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— — 
oo oO 
yg ee eet 

EM PNW EW 
Ww wwewwwuwsy 
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007326 


007330 
007336 


007344 
007344 


007404 
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000004 
012767 


012767 
032767 
001004 


012767 
000553 


162705 
004767 
012503 


012746 
012746 
000002 


016701 


012721 
012721 
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000001 
000023 


049000 
001541 


000001 


000002 
001066 


000000 


007420 


171632 


007626 
000300 


171646 
000001 


171566 
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TEST DATA THROUGH WRAP 


FERRER RAE AREE AEE TE EEE EEE EERE REEE AEA AREREEEEEEEEEEAREEEEEEER ES 
See ReReReReeeeeReRRe eee ee eeeeeeeeeekekeeeteeeeeeeeeeeeeeeetet 


:#TEST 23 


FULL DATA fear ha Ola INTERRUPTS 


AND MAINTENANCE M 


 pliedunineedanumnanakentanmuisemnstaiennimeennniemenmeiaeeneinas 


‘its 


$166: 


$167: 


64$: 


SCOPE 


MCV 


MOV 


#1, STIMES 
#25, $TESTN 


ee en 


CONSOLE , #TRUE 
$167 


#1, STIMES 
TST24 


#1*2,R5 
PC,DATLNG 
(R5)+,R3 


AT ONCE 


#PRO,-(SP) 


#64$,-(SP) 


DLVEC,R1 


#REC, (R1)+ 
#PR6,(R1)+ 


3;D0_1_ITERATION 


3;SET TEST NUMBER IN APT MAIL BOX 
IF #MAINTJUMP NOTSETIN $USWR ORB CONSOLE EQ #TRU 


EXIT 


szcEXIT THIS TEST 
ENDIF 


CALL DATL 


THE DOUBLE BUFFE 
TESTE 


:,PUT NEW PS ON § 
+:PUT NEW PC ON 
+:POP NEW PC AND 


TEST 


;GET DATA MASK 
NG OUT <R3> 


THIS TEST WILL RUN BOTH TRANSMITTER AND 
TESTING 


THE MODULE 
TO re aoe Tab FROM BOTH SIDES 
OF THE UART WILL BE FULLY 
THIS TEST WILL TRANSFER A MAXIMUM OF pat 
CHARACTERS THROUGH THE MODULE, N ERROR 
IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 


ea | PRIORITY 


RING LOGIC 
D. 

BUT IF A 
TACK 


STACK 
PS 


GET VECTOR ADDRESS 


LET R1 := 


LET (R1)+ 


LET (R1)* s= 


DLVEC 


sRCVR VECTOR 
:= MREC 


#PR6 


sPOINT TO rey pb VECTOR 
SAND SET IT UP ALSO 


SEQ 0071 


aS a 


H 6 
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CNDVCA.P11 «=. 27=DEC=82 11:36 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0072 
10383 007434 LET (R1)+ := #TRAN 
(4) 007434 012721 007564 MOV #TRAN, (R1)+ 
10384 007440 LET (R1) := #PR6 
1068 007440 012711 000300 MOV #PR6,(R1) 
10386 : CLEAR ERROR COUNTER 
10387 007444 Let ERRCNT := #0 
(4) 007444 005067 000106 CLR ERRCNT 
10388 : INITIALIZE COUNTERS 
10389 007450 LET R1 := #1 
(4) 007450 012701 177777 MOV #-1,R1 
10390 ZRECEIVER STORAGE 
10391 007454 LET R2 := #0 
(4) 007454 005002 CLR R2 
10392 :# OF RECEIVED CHAR. COUNT. 
10393 007456 LET RG := #1 
| sons. 007456 012704 177777 MOV #-1,R4G 
10395 007462 BRESET ;SET UP ALL REGISTERS 
(1) 007462 000005 RESET 
| 10396 sSET UP MAINTENANCE 
| 10397 007464 LET @TCSR := aTCSR SET.BY #MAINT 
10583 007464 052777 000004 171572 BIS #MAINT,aTCSR 
10399 :SET I.€. IN TRANSMITTER 
- 10400 007472 LET a@TCSR := aTCSR SET.BY #XMITIE 
(7) 007472 052777 000100 171564 BIS AXMITIE,aTCSR 
10401 “AND RECEIVER 
10402 007500 LET @RCSR := ARCSR SET.BY #RCVRIE 
a 007500 052777 000100 171552 BIS ARCVRIE,ARCSR 
10404 
10405 :NOW WE WAIT UNTIL R4 COUNT (RECEIVED) 1S EQUAL 
10406 007506 REPEAT 
(3) 007506 $170: 
10407 007506 UNTIL R4 EQ NUMBER OR ERRCNT GT #0 
(4) 007506 020467 000046 CMP R4 NUMBER 
(6) 007512 001403 BEQ $171 
(4) 007514 005767 000036 TST ERRCNT 
(7) 007520 003772 BLE $170 
10643 007522 $171: 
10409 007522 LET @TCSR := aTCSR CLR.BY #MAINT 
(7) 007522 042777 000004 171534 BIC #MAINT,aTCSR 
10410 : CHECK FOR DATA COMPARE ERRORS. 
10411 007530 IF ERRCNT NE #0 THEN 
(6) 007530 005767 000022 TST ERRCNT 
(9) 007534 001401 BEQ $172 
10412 :DATA COMPARE ERROR 
10413 007536 ERRHRD 120,COMP,FIRST 
(1) 007536 104120 ERROR 120 
10414 007540 ENDIF 
of 007540 $172: 
10416 007540 LET a@TCSR := aTCSR CLR.BY #XMITIE 
(7) 007540 042777 000100 171516 BIC #XMITIE,aTCSR 


_— —— — os os = SY SY) — 
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1 


—s 


ARERR~RRRRRRRRERR-~R 


a — 


—_- —_— 


“a ~~ a os sad 3 a 2 3 2 


SFE 
SrSE 


042777 
000462 


000000 
001000 
000 


000 


005201 


010167 
040367 


016777 


020167 
001003 


042777 


000401 
000000 


000002 


005204 
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000100 


000030 
000024 


000020 


177750 


000100 


177504 


171464 


171444 


27=DEC=82 11:37 PAGE 176-2 
123 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0073 
LET @RCSR := ARCSR CLR.BY #RCVRIE 
BIC #RCVRIE,ARCSR 
EXIT “SKIP OVER SUPPORT ROUTINES & STORAGE 
BR TST24 s:sEXIT THIS TEST 
ERRCNT: O 
NUMBER: 1000 
SB: .BYTE 0 


Y 
WAS: BYTE 0 


FF ERA ERR AAR AREER EE AE EEE EEEERAREREREREAREREAAREERAERERAEREAEEEE 


TRAN: 


; TRANSMIT INTERRUPT HANDLER 
BGNSRV TRAN 


FF RARER ERA EE EERE ER EREEEEEE EEE ARERR EREEEEEEEHEAAAE RARE E KEE 


INC 


MOV 
BIC 


MOV 


BNE 
BIC 
$173: 
BR 
HOLD :0 


277: 
RTI 


; INCREMENT CHAR COUNT 
TRI := R1 + #1 


LE 
R1 
;SET UP FOR TRANSFER 
LET HOLD := R17 CLR.BY R3 
R1,HOLD 
R3,HOLD 
;AND SEND. 
LET @TBUF := HOLD 
HOLD ,aTBUF 
*ALL DONE 
IF Ri EQ NUMBER THEN 
R1,NUMBER 
$173 
STOP INTERRUPT PROCESSING 
LET @TCSR := @TCSR CLR.BY #XMITIE 
#XMITIE,aTCSR 
ENDIF 
222 : EXIT SRV 
ENDSRV 


SF RAAAAARAEREAEHERAAEKE HAHAHAHAHA AREEHERAAEAHEAEREKEAAEE EERE ee 


REC 


INC 


RECEIVER INTERRUPT HANDLER 
BGNSRV REC 


PL Ateeeteeeerereereeereeeeeteeeareeeeeeeentateekeerereeteteenetee 


:COUNT THIS CHAR. 
LET RG z= RG + #1 


GET CHAR IN * MASK IT 


RS 


MAINDEC=11=CNDVC=A MACY11 30(1046) 133 DEC-82 11:37 PAGE 176=3 
CNDVCA.P11 =. 27=DEC-82 11:36 3 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0074 
10491 007630 LET R2 := @RBUF CLR.BY R3 
(4) 007630 017702 171426 MOV @RBUF ,R2 
(7) 007634 040302 BIC R3,R2 
1049. sRHLD WILL CONTAIN EXPECTED INPUT 
10493 007636 LET RHLD := R4 CLR.BY R3 
(4) 007636 010467 000054 MOV R4,RHLD 
ma 007642 040367 000050 BIC R3,RHLD 
10495 DO THEY COMPARE 
10496 007646 IF ae” NE RHLD THEN 
(6) 007646 ~=020267 000044 CMP R2,RHLD 
(9) 007652 001412 BEQ $174 
10497 zFIRST ERROR 
10498 007654 iF ERRCNT EQ #0 THEN 
(6) 007654 005767 177676 TST ERRCNT 
(9) 007660 001005 BNE $175 
10499 ZSAVE RECORD OF FIRST MISS 
10500 007662 LET SB :B= RHLD 
(4) 007662 116767 000030 177672 MOVB _—sRHLD, SB 
10501 007670 LET WAS :B= R2 
(4) 007670 110267 177667 MOVB _—R2, WAS 
10502 007674 ENDIF 
(4) 007674 $175: 
10503 sCOUNT IT. 
10504 007674 LET ERRCNT := ERRCNT + #1 
(7) 007674 005267 177656 INC ERRCNT 
10505 007700 ENDIF 
(4) 007700 $174: 
10506 
10507 sALL DONE? 
10508 007700 IF R& EQ NUMBER THEN 
(6) 007706 020467 177654 CMP R4, NUMBER, 
(9) 007704 001003 BNE $176 
10509 :STOP RECEIVER INTERRUPTS 
10510 007706 LET @RCSR := A@RCSR CLR.BY #RCVRIE 
(7) 007706 042777 000100 171344 BIC #RCVRIE,ARCSR 
10511 : INDICATE ALL DONE TO TIMER 
10512 :MAIN REPEAT LOOP IS CHECKING 
10513 :FOR 'R4 = NUMBER’ ALSO 
10514 007714 ENDIF 
1068 007714 $176: 
10516 007714 000401 BR 2222 : EXIT SRV 
10518 007716 000000 RHLD:0 
10519 007720 2222: 
10520 007720 ENDSRV 
(1) 007720 000002 RTI 
10521 
10522 007722 ENDTST 
10523 
10524 
10525 
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10561 ; RECIEVER DONE DID NOT SET 


CNDVCA.P11 27-DEC-82 11:36 T23 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0075 
10527 
1008! FRRREREAARE AERA REET EERE ETRE EERE AEEEREEEAAEEERERREREEEE RTE 
10539 SRRCRRRRRRReeeeeATH Kee Eee eee eee eeeeeeeeeeAeeeeeeeKeteeeeeeeees 
(3) tS TEST 24 TEST BREAK GENERATION LOGIC 
(4) te TRANSMIT KNOWN CHAR yi BREAK SET 
(4) 3* AND COMPARE RECEIVED WITH 
(4) 3* FRAMING ERROR WILL ALSO BE CHECKED 
(4) 3* IF ERROR BITS ARE ENABLED. 
(3) FERRARA ERA EAAEE AEE EAARERERERKARARAEEREEEE 
| & 007722 000004 TST24: SCOPE 
(1) 007724 012767 000010 171226 MOV #10,$TIMES 3:00 10 ITERATIONS 
(2) 007732 012767 000024 171240 MOV #24, STESTN 33SET TEST NUMBER IN APT MAIL BOX 
/ 10544 007740 IF WATT JUMP. NOTSETIN $USWR OR #BRK NOTSETIN $U 
(6) 007740 032767 040000 171252 BIT #MAINTJUMP ,SUSWR 
(8) 007746 001404 BEQ 177 
| (6) 007780 032767 010000 171242 BIT #BRK,SUSUR 
(9) 007756 001004 BNE $200 
| . (6) 007760 $177: 
10545 007760 EXIT TEST 
(5) 007760 012767 000001 171172 MOV #1,$TIMES 
(3) 007766 000500 BR TST25 szcEXIT THIS TEST 
10546 007770 ENDIF 
(4) 007770 $200: 
10547 007770 IFB CONSOLE EQ #TRUE THEN 
(6) 007770 126727 001125 000001 CMPB CONSOLE , #TRUE 
(9> 007776 001004 BNE $201 
10548 010000 EXIT TEST 
(5) 010000 012767 000001 171152 MOV #1,STIMES 
(3) 010006 000470 BR TST25 s3cEXIT THIS TEST 
10549 010010 ENDIF 
10559 010010 $201: 
10551 010010 LET ERRCHK := #0 3; CLEAR ERROR WORD 
(4) 010010 005067 000152 CLR ERRCHK 
10552 2 SET MAINTENANCE BIT 
10553 010014 ’ LET aTCSR := aTCSR SET.BY #MAINT 
(7) 010014 052777 000004 171242 BIS #MAINT,aTCSR 
10554 2 SET BREAK BIT 
10555 010022 LET atcsr : = @TCSR SET.BY #BREAK 
(7) 010022 052777 000001 171234 BIS #BREAK ,ATCSR 
10556 ;NON-ZERO CHAR. ‘*° 
10557 010030 LET aTBUF := #252 
(4) 010030 012777 000252 171232 MOV #252 ,aTBUF 
10558 ;WAIT FOR DONE 
10559 010036 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 010036 010546 MOV R5S,-(SP) 
(7) 010040 012745 177777 MOV #SET, -(R5) 
(6) 010044 016745 171210 MOV RCSR,-(R5) 
(5) 010050 012745 000200 MOV #RCVRDONE , -(R5) 
(4) 010054 012745 000500 MOV #500,-(R5) 
(3) 010060 004767 000230 JSR PC, TIMER 
(3) 010064 012605 MOV (SP)+,R5 
10560 010066 IF ERROR THEN 
(6) 010066 103001 BCC $202 
| 
| 


MAINDEC-11=CNDVC-A 


CNDVCA.P11 
10562 010070 
(1) 010070 
10563 016072 
(4) 10072 
10564 
10565 010072 
(6) 010072 
(9) 010076 
0566 
10567 010100 
(7) 010100 
' 10568 010106 
(4) 010106 
(3) 010110 
/ 10569 010110 
(6) 010110 
(9) 010116 
10570 010120 
j (6) 010120 
| (9) 010126 
10571 010130 
i (7) 010130 
| 10572 010136 
(4) 010136 
10573 010136 
(4) 010136 
10574 010136 
(4) 010136 
10575 
10576 010136 
(1) 010136 
10577 
10578 010140 
(6) 010140 
(9) 010146 
10579 010150 
(1) 010150 
10580 010152 
(4) 010152 
10581 010152 
(6) 010152 
(9) 010160 
10582 010162 
(1) 010162 
10583 010164 
(4) 010164 
10584 010164 
(3) 010164 
10585 010166 
0586 010170 


104115 


105777 
001404 
052767 
000413 
032767 
001407 


032777 
001003 


052767 


000005 
032767 
001401 
104121 


032767 
001401 


104122 


000401 
000000 
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171164 


000001 


100000 


020000 


000002 


000001 


000002 


000060 


171102 


171134 


000030 


000020 


000006 


27-DEC-82 
T24 


$202: 


$203: 


$206: 
$205: 
$204: 


$207: 


$210: 


ERRCHK: 


L. 6 
77-1 


11:37 PAGE 1 
TEST BREAK GENERATION LOGIC 
ERROR 115 
TSTB @RBUF 
BEQ $205 
BIS #81T0,ERRCHK 
BR $204 
BIT #ERRBITS,SUSWR 
BEQ $205 
BIT #FRERR ,ARBUF 
BNE $206 
BIS #BIT1,ERRCHK 
RESET 
BIT #B1TO,ERRCHK 
BEQ $207 
ERROR 121 
BIT #B1T1,ERRCHK 
BEQ $210 
ERROR 122 
BR TST25 


ENDTST 


SEQ 0076 
ERRHRD 115 
ENDIF 


IFB @RBUF NE #0 THEN 
; BREAK DID NOT EQUAL 0 
LET ERRCHK := ERRCHK SET.BY #B1TO 
ELSE 
IF #ERRBITS SETIN $USWR THEN 


IF #FRERR NOTSETIN @RBUF THEN 


LET ERRCHK := ERRCHK SET.BY #BIT1 
ENDIF 
ENDIF 
ENDIF 
BRESET ;CLEAN UP 


IF #BITO SETIN ERRCHK THEN 


ERRHRD 121 
ENDIF 
IF #B1T1 SETIN ERRCHK THEN 


BREAK ERROR 





ERRHRD 122 
ENDIF 


; FRAMING ERROR 


EXIT 
secEXIT THIS TEST 
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CNDVCA.P11 9 27=DEC=82 11:36 124 TEST BREAK GENERATION LOGIC SEQ 0077 
10589 
10594 
10595 5 FERRARA ATER EEE EEE EEE AA EKER EEA EEEEEEREREEKE EEE EE 
(3) S*TEST 25 NOT A TEST = SEND BACK TO LOOP 
(3) ss kteaeeeeeeeen PAA AAAALASALAAAALALASZALZALALALLAESLASLEESE LE RET ERLE SS GS GS 
(2) 010170 000004 TST25: SCOPE 
(1) 010172 012767 000001 170760 MOV #1, $TIMES ::D0 1 ITERATION 
10596 010200 104401 010206 TYPE ,65$ S:TYPE ASCIZ STRING 
(1) 010204 000404 BR 64$ t:GET OVER THE ASCIZ 
(1) ::65$: .ASCIZ <CRLF>*CSR: * 
(1) 010216 64$: 
10597 010216 016746 171032 MOV DLADD,=(SP) z:SAVE DLADD FOR TYPEOUT 
(1) 010222 104402 TYPOC £:G0 TYPE=-OCTAL ASCII(ALL D!GITS) 
10598 010224 104401 010232 TYPE ,67$ S:TYPE ASCIZ STRING 
(1) 010230 000405 BR 66$ t:GET OVER THE ASCIZ 
(1) 2:67$: .ASCIZ *,VECTOR: * 
(1) 010244 66$: 
10599 010244 016746 171006 MOV DLVEC,-(SP) z:SAVE DLVEC FOR TYPEOUT 
(1) 010250 104402 TYPOC °:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
10600 010252 104401 010260 TYPE ,69$ S:TYPE ASCIZ STRING 
(1) 010256 000405 BR 68$ t:GET OVER THE ASCIZ 
(1) 2:69$: .ASCIZ *,ERRORS: * 
(1) 010272 68$: 
10601 010272 016746 170614 MOV SERTTL,-(SP)  ;:SAVE SERTTL FOR TYPEOUT 
(1) 010276 104405 TYPDS ::GO TYPE=-DECIMAL ASCII WITH SIGN 
10602 010300 005067 170606 CLR SERTTL > RESET FOR NEXT DEVICE/PASS 
10603 010304 104401 001171 TYPE  ,$CRLF 
10604 010310 000167 171622 JMP LOOP : BACK UP TO THE BEGINNING 


-—--—— _- - — ee oo -- a 
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CNDVCA. P11 27-DEC-82 11:36 T25 NOT A TEST = SEND BACK TO LOOP SEQ 0078 
| 
' 10610 
| 10615 
| 10616 GNMOD SUBS 
| 10617 s  unennedtecneneeceeqeeesecseceqneenanenceneeeeaeeeeeetenereeeees 
10622 010314 ROUTINE TIMER <HOWLONG ,WHICHBIT,REG,SETCLR> 
(2) 010314 TIMER 
| 10623 :* ROUTINE: TIMER 
| 10624 * THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
10625 3¢ IN ANY REGISTER. 
10626 3* INPUTS: 
10627 3* HOWLONG THE ye AMOUNT OF TIME TO SPEND IN 
10628 3* THIS ROUT 
10629 3* WHICHBIT A MASK wit THE BIT(S) SET THAT ARE 
10630 ;* TO BE CHECK 
10631 s* REG POINTER TO THE REGISTER TO BE CHECKED 
10632 3* SETCLR THE DESIRED RESUL 
10633 3* ELTHER #SET OR WCLEAR 
10634 3* OUTPUT: 
10635 7* THE ‘C* BIT IS SET TO INDICATE AN ERROR 
10636 3* BUT IT IS TESTED BY THE IF.ERROR STATEMENT 
10637 3* 
10638 3* 
10639 3* NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 
10640 3* MECHANISM BETWEEN THE CALLER AND THE CALLED 
10645 akinesia deiaaaieimeeinennaniaaiammantieieies 
10650 
10651 000001 ; TRUE= 1 
10636 000000 FALSE= 0 
10654 010314 LET REGSAV := REG(RS) ; GET POINTER TO REGIST 
(4) 010314 016567 000004 000136 MOV REG(R5) ,REGSAV 
10655 010322 LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
(4) 010322 016567 000000 000132 MOV HOWLONG(R5), TIMSAV 
10656 010330 LET FLAG :B= MFALSE ; INITIALIZE THE EXIT FLA 
10687 010330 112767 000000 000126 MOVB #FALSE,FLAG 
10658 
10659 3 START OF AN INFINITE LOOP 
10660 
0661 010336 LOOP 
(3) 010336 $213: 
10662 ; TEST TO SEE IF WHICHBIT IS SET 
10663 010336 IF WHICHBIT(RS) NOTSETIN QREGSAV THEN 
(6) 610336 036577 000002 000114 BIT WHICHBIT(RS) ,@REGSAV 
(9) 010344 001004 BNE $215 
10664 010346 LET HOLDSc :B= A#CLR 
(4) 010346 112767 000000 000111 MOVB #CLR,HOLDSC 
10665 010354 ELSE 
(4) 010354 000403 BR $216 
(3) 010356 $215: 
10666 010356 LET HOLDSC :B= #SET ; REMEMBER THIS 
(4) 010356 112767 177777 000101 MOVB #SET,HOLDSC 
10667 010364 ENDIF 
(4) 010364 $216: 
10668 
10669 ; NOW SEE IF THAT WAS WHAT WE WANTED 


(nn nn ne 


8 7 
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| 10670 010364 IFB HOLDSC EQ SETCLR(RS) THEN 
| (6) 010364 126765 900075 000006 CMPB —« HOLDS, SETCLR(RS) 
(9) 010372 001003 BNE $217 
10671 : JUST THE THING WE NEEDED 
10672 010374 LET FLAG :B= #TRUE 
(4) 010374 112767 000001 000062 MOVB  #TRUE,FLAG 
| 10673 010402 ENDIF 
| 1002 010402 $217: 
| 10675 010402 EXIFB FLAG EQ #TRUE OR TIMSAV LE 40 
(4) 010402 126727 000056 000001 CMPB ~—s- FLAG, #TRUE 
| = (6) 010410 001414 BEQ $214 
(4) 010412 005767 000044 TST TIMSAV 
(6) 010416 003411 BLE $214 
10676 ; ONE WAY OR THE OTHER, WE ARE 
hs 144 3 IF WE ARE STILL HERE THEN HANG AROUND A WHILE 
10679 010420 WAITMS 1 
(4) 010420 010546 MOV R5,-(SP) 
(5) 010422 012745 000001 MOV #1,-(R5) 
(4) 010426 004767 000140 JSR PC,WAIT 
(4) 010432 012605 MOV (SP)+,R5 
10680 010434 
(7) 010434 005367 000022 DEC TIMSAV 
| 10681 010440 ENDLOOP 
(4) 010440 000736 BR $213 
(3) 010442 $214: 
10682 
10683 : ONLY 2 WAYS TO GET HERE 
10684 3 1). WE RAN OUT OF TIME=--ERROR ! ! 
10685 : 2). THE BIT IS IN THE CORRECT CONDITION=-GOOD ! ! 
10687 010442 1FB FLAG EQ #TRUE THEN 
(6) 010442 126727 000016 000001 CMPB ~—s- FLAG, # TRUE 
(9) 010450 001001 BNE $220 
10688 010452 RETURN NO.ERROR ; GOOD 
(4) 010452 000405 BR $211 
10689 010454 ENDIF 
(4) 010454 $220: 
10690 010454 RETURN ERROR ; BAD 
(2) 010454 000261 SEC 
10633 010456 000404 BR $212 
10692 010460 000000 REGSAV: .WORD 0 
10693 010462 000000 TIMSAV: .WORD 0 
10694 010464 000 FLAG: BYTE 0 
10695 010465 000 HOLDSC: .BYTE 0 
10696 : WE ARE DONE GO BACK HOME 
10697 010466 NDRTN 
(3) 010466 $211: 
(2) 010466 000241 CLC 
(3) 010470 $212: 
(2) 010470 000207 RTS PC 


DONE 


SEQ 0079 


WAIT FOR 1 MILLI-SECONDS 


LET TIMSAV := TIMSAV = #1 ; COUNTING DOWN 


3 CONTINUED AT THE TOP 


a ee ee ee 


o—_—_—_—_---_ 


ne 
i 
' 
} 
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5 
710 010472 
010472 


i i i i i i i ee 


Bl bere 005065 
Bipeny 016767 


(7) 010514 042667 


10734 
10735 010520 

(4) 010520 012767 

(5) 010526 000402 

(4) 010530 

(8) 010539 005267 

(5) 010534 

(5) 010534 026767 

(7) 010542 003006 
10736 010544 

(8) 010544 006365 
10737 010550 

(7) 010550 052765 
10738 010556 

(4) 010556 000764 

(3) 010560 
10739 010560 

(7) 010560 005165 
10740 010564 

(4) 010564 000401 
10741 010566 000000 
10742 010570 

(3) 010570 

(3) 010570 

(2) 010570 000207 


000000 
170516 


000046 


000001 


170536 
170532 


000000 
000001 


000000 


000062 


170544 


000024 


000000 


ast a 11: Nal PAGE 180° 
OUTINE = TIMER 


ROUTINE DATLNG <MASK> 

DATLNG: 

;* ROUTINE: DATLNG 
THIS R 


OUTPUT=-== 


Porerererererarar 


SEQ 0080 
TPR RAAAASZELAZALALALALALALLELALELEL SESE ALES ERR RR ERR RRR RRR RRR RRR SARA GS 
OUTINE SETS UP A MASK FOR DATA, WITH 
INPUT - NOTHIN IS PASSED TO THIS ROUTINE 
AL INFORMATION IS ASSUMED TO EXIST 
SUSWR=-- THE WORD FOR SOFTWARE PARAMETERS 
DATA==- A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 
MASK== A MASK OF BINARY ONES RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 
SPREE AEA E TERE REE EERE EERE EEEEEREERREREREEEKEKEE 
LET MASK(RS) := 40 : START 


CLR MASK (R5) 
MOV SUSWR ,NUMBR 


BIC (SP)+,NUMBR 


BR O$285 


$224: 
INC I 

$223: 
CMP 1, NUMBR 
BGT $225 
ASL MASK(R5) 
BIS #1,MASK(R5) 
BR $224 

$225: 
COM MASK(RS) 
BR $221 
NUMBR :0 

$221: 

$222: 


RTS PC 


LET NUMBR := $USWR AND #DATA 


INCR I FROM #1 TO NUMBR BY #1 


LET MASK(RS) := MASK(RS) SHIFT 1 
LET MASK(RS) := MASK(RS) SET.BY #1 
ENDINC 


LET MASK(RS) := COMP MASK(RS) 
RETURN 


ENDRTN 


/MAINDEC=11=CNDVC=A 
CNDVCA.P11 27=DEC-82 11:36 


| 10744 
- 10745 
10750 
/ 10755 010572 
| . (2) 010572 
| 10756 
| 10757 
| 10758 
| 10759 
| 10760 
| 10761 
| 10766 
| 10767 010572 
(2) 010574 
| (3) 010576 
10772 010600 
(4) 010600 
10773 010604 
(4) 010604 
(5) 010610 
(4) 010612 
(8) 010612 
(5) 010616 
(5) 010616 
(7) 010620 
10774 010622 
(4) 010622 
(5) 010624 
(4) 010626 
(8) 010626 
(5) 010630 
(5) 010630 
(7) 010634 
10775 010636 
(4) 010636 
(3) 010640 
10776 010640 
(4) 010640 
(3) 010642 
10781 010642 
2) 010644 
(2) 010646 
10786 010650 
(3) 01065 
(3) 010650 
(2) 010650 
| 


010146 
010246 
010346 
016501 


012702 
000402 


062702 


020201 
101010 


005003 
000401 


005203 


020327 
003001 


000773 


000764 
012603 


012602 
012601 


000207 


MACY11 30(1046) 


000000 
000001 


000001 


000100 


akertte 11: ier PAGE 181° 


OUTINE = DATLN 
: TOC RRRAAAAAAAAAASASZAAAAAAAAAAALALALSLALAZALALLAELE LESTE EEE EERE SEER SG SG 
ROUTINE WAIT <TIME> 
WAIT: 
:* ROUTINE :WAIT 
* THIS ROUT INE IS USED TO DELAY EXECUTION OF THE 
3* MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
* THIS er ACCOMPLISHED BY INCREMENTING A 
ie REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
i TO APPROXIMATE 1 MILLI SEC. 
2 3 RAAAEEEAEAAEEAAAAAEAAEAAAEEAAEREAAEAAAAARAEARAAAAREAAAEAAREREREREEERE 
MOV R1,=(SP) : PUSH R1 ON STACK 
MOV R2,=(SP) 3 3PUSH R2 ON STACK 
R3,-(5P) +:PUSH R3 ON STACK 
LET R1 := TIMECR 
MOV TIME (RS) ,R1 
INCRU R2 FROM #1 TO R1 BY #1 
MOV #1,R2 
BR $230 
$231: 
ADD #01,R2 
$230: 
CMP R2,R1 
BHI $232 
INCR R3 FROM #0 TO #100 BY #1 
CLR R3 
BR $233 
$234: 
INC R3 
$233: 
CMP R3,#100 
BGT $235 
ENDINC 
BR $234 
$235: 
ENDINC 
R $231 
$232: 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP) +. R2 +:POP STACK INTO R2 
MOV (SP)+.R1 ::POP STACK INTO R1 
ENDRTN 
$226: 
$227: 
RTS PC 


SEQ 0081 


MAINDEC=11=CNDVC~A 
CNDVCA.P11 


010652 


010652 
Bibees 


01 
010660 


005267 000002 


000002 
000000 


MACY11 30(1046) 
27-DEC=82 11:36 


E 
dutne = 11:37 PAGE 182 
- WAIT 


-SBTTL INTSRV INTERRUPT SERVICE ROUTINE 


POT I iti iititiiitisiitiiisiiiiiiiitiiii iret rere 
INTSRV: 

;* iain | Rt t INTSRV 

;¢ GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 

;* TINTFLAG® EACH TIME IT IS CALLED. IT ASSUMES 

;* THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 

;* TO LOOK FOR 


se 
SRR AEAEAEAAEEEEEAAAEEAREEEEAAARARAREREAREEAAEEAEAREEARERAHER EEE 


;ADD 1 TO "INTERRUPT OCCURED’ FLAG 
LET INTFLAG := INTFLAG + #1 
INC INTFLAG 
ani 3 THAT’S ALL 
INTFLAG: 0 


MAINDEC=11=CNDVC=A 


CNDVCA.P11 
10817 


MACY11 30(1046) 
27-DEC-82 11:36 ; 


27=DEC=82_ 11:37 


INTSRV 


PAGE 183 
INTERRUPT SERVICE ROUTINE 


SEQ 0083 


MAINDEC=11=CNDVC=A 


CNDVCA. 





010662 
010662 


010722 
010726 


Pit 27-DEC-82 1 


112767 
112767 


005767 
001027 


026727 
001003 


005067 
000403 


004767 


012600 


012767 
012767 
016767 
016767 
000410 


012704 
006167 
060467 


“id Oh 30(1046) 


1:36 


000000 


000000 


000200 


000174 


000164 


000370 


000001 
000001 
170300 
170266 


000010 
000110 
000110 


000230 
000223 


000001 


000144 
170240 
000134 
000130 


27-DEC=82 11:37 PAGE 184 
INTSRV INTERRUPT SERVICE ROUTINE SEQ 0084 


ROUTINE CYCLE 
zs CLE: 


FRAAAARAAAEEEAEAAAAAARAE THERE EAHERAEAAEAAEHEEAERAEKKKRHRE TERRA EES 


3* ROUTINE: CYCLE 
THIS ROUTINE CAUSES 4 TO POINT TO THE 


E APT. 
ALL TESTS THAT REQUIRE THE MAINT BIT ARE NOT URUN. 
jeaanenennenaneeentereneeeeereettenenecesttenagaeesentteneseeets 
LET APTCON :B= #FALSE ; SET DEFAULT VALUE 
LET CONSOLE :B= #FALSE 


REPEAT ; UNTIL BITMASK SETIN $DEVM 


ee 
32 
Ze 
3* IT KEEPS TRACK OF THE CURRENT DEVICE A 
-® 
i 


MOVB #FALSE ,APTCON 
MOVB #FALSE ,CONSOLE 


$240: 
IF BITMASK EQ #0 THEN 
TST BITMASK 
BNE $241 
IF INITFLAG EQ #1 THEN 
CMP INITFLAG,#1 
BNE $242 
LET INITFLAG := 40 
CLR INITFLAG 
ELSE 
RR $243 
$242: 


CALL $EOP ; AS A SUBROUTINE 
JSR PC ,SEOP 


SPECIALADDRESS: ; BECAUSE SEOP RETURNS AS A JUMP 
LET RO := POP 


MOV (SP)+,R0 
ENDIF 


$243 
LET BITMASK := #1 
MOV #1,BITMASK 
LET SDEVCT := #1 
MOV #1,$DEVCT 
LET ADDRESS := $BASE 
MOV SBASE ,ADDRESS 
LET VECTOR := $VECT1 
MOV $VECT1,VECTOR 
ELSE 
BR $244 
$241: 
LET RG := #10 
MOV #10,R4 


LET BITMASK :> BITMASK ROTATE 1 
LET ADDRESS := ADDRESS + R4 
LET VECTOR := VECTOR + R4 


ROL BITMASK 
ADD R4, ADDRESS 


MAINDEC=11=CNDVC-A 


CNDVCA.P11 27-DEC-82 

(7) 010776 060467 
10860 011002 

(4) 011002 
10861 011002 

(3) 011002 036767 

(6) 011010 001732 
10862 011012 

(6) 011012 026727 

(9) 011020 001023 
10863 011022 

(4) 011022 112767 
10864 011030 

(4) 011030 016767 
10865 011036 

(4) 011036 016767 
10866 
10867 
10868 
10869 011044 

(6) 011044 032767 

(9) 011052 001406 
10870 011054 

(6) 011054 005767 

(9) 011060 001403 
10871 
10872 011062 

(4) 011062 112767 
10873 011070 

(4) 011070 
10874 011070 

(4) 011070 
10875 011070 

(4) 011070 
10876 
10877 011070 

(4) 011070 012701 
10878 011074 

(7) 011074 005267 
10879 011100 

(4) 011100 000411 
10880 011102 100000 
10881 011104 000001 
10882 011106 000000 
10883 011110 0000 
10884 011112 000000 
10885 011114 177560 
10886 011116 000060 
10887 011120 000 
10888 011121 000 
10889 011122 000 
10890 011124 
10891 
10892 011124 

(3) 011124 

(3) 011124 

(2) 011124 000207 


H 7 
MACY17 30(1046) 27=DEC-82 11:37 PAGE 184-1 


11:36 


000106 


000074 


000064 


000001 
000060 
000054 


000001 


170122 


000001 


011106 
170104 


170242 


100000 


000071 
000050 
000044 


170142 


000030 


ROUTINE = CYCLE 


ADD 
$244: 


BIT 
BEQ - 


CMP 
BNE 


MOVB 
MOV 
MOV 


BIT 
BEQ 


Bed 
MOVB 
$247: 
$246: 
$245: 


MOV 
INC 


BR 
BITMASK: 
INITFLAG: 
ADDRESS: 


4 
CONSOLE: 


RTS 


R4,VECTOR 
ENDIF 


UNTIL BITMASK SETIN S$DEVM 
BITMASK,SDEVM 
$240 


If BITMASK EQ #B1T15 THEN 
BITMASK,#B1T15 
$245 


LET CONSOLE :B= #TRUE 
LET ADDRESS := CONADR 
LET VECTOR := CONVECT 


IF #CONMAINT NOTSETIN SUSWR THEN 
LET NOCONMAINT :B= #TRUE 


ENDIF 
IF #APTENV SETIN SENV THEN ; APT MODE 


#TRUE , CONSOLE 
CONADR ,ADDRESS 
CONVECT, VECTOR 


#APTENV, SENV 
$246 


IF $PASS NE #0 THEN ; NOT FIRST PASS 


SPASS 
$247 
; DEFINE DEVICE AS APT CONSOLE 
LET APTCON :B= #TRUE 


; FIRST PASS 


ATRUE ,APTCON 
ENDIF 


ENDIF 
ENDIF 


3 APT 
; BITMASK 


LET ADRS := #ADDRESS 
#ADDRESS ,ADRS 
LET SDEVCT := SDEVCT + #1 
SDEVCT 


: CONSOLE FIRST 


; CONSOLE ADDRESS 
: CONSOLE VECTOR 


ENDRTN 


PC 


SEQ 0085 


MAINDEC=11=CNDVC=A 
CNDVCA.P11 27-DEC-82 1 


10893 
10894 


ro by 30(1046) 


afurte 


7 
11: al PAGE 1842 


RGUTINE = CYCLE 


SEQ 0086 


MAINDEC=11=CNDVC=A 
CNDVCA.F11 27=DEC=82 
10896 
10897 
10898 011126 
(2) 011126 
10903 
10904 011126 104401 
Hi 011132 000405 
(1) 011146 
10905 011146 016746 
(1) 011152 104402 
10906 011154 104401 
. 011160 000405 
(1) 011174 
| 10907 011174 116767 
10908 011202 016746 
(1) 011206 104403 
(1) 011210 006 
(1) 011211 
10909 011212 104401 
(1) 011216 
(1) 
(1) 011230 
10910 011230 016746 
(1) 011234 104402 
10911 011236 104401 
Hi 011242 0404 
(1) 011254 
10912 011254 016746 
(1) 011260 104402 
10913 011262 104401 
ate 011266 000405 
(1) 011302 
10914 011302 016746 
(1) 011306 104402 
10915 011310 104401 
10920 011314 
(3) 011314 
(3) 011314 
(2) 011314 000207 


MACY11 30(1046) 
11:36 


011134 


170026 
011162 


167714 
167770 


011220 


167662 
011244 


167774 
011270 


167750 
001171 


167774 


J 
27=DEC-82 11:37 PAGE 185 
ROUTINE = CYCLE 


ROUTINE MYTYPE 
MYTYPE: 


FERRARA HAAS HAHAHA HEKHEKAAHRAAEKEKERAHEANAAARHKERAKEARREKEREeHReAee 


37698: 
68s: 


fis: 


fs 


ENDRTN 
$250: 


$250: 
$251: 


TYPE 
BR 
eASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 
MOVB 
MO 


BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 


MOV 
TYPOC 
TYPE 


RTS 


64$ 
<CRLFO*TEST # * 


STESTN,=(SP) 
678 
66$ 
*,ERROR # * 


SITEMB,SFATAL 

SFATAL,-(SP) 

6 

0 

69S 

68$ 

*,PC = * 

SERRPC,-(SP) 
71$ 

70$ 

*,CSR: * 


DLADD,-(SP) 
73$ 

2$ 
*,VECTOR: * 
DLVEC,-(SP) 
» SCRLF 


PC 


32 TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


szSAVE STESTN FOR TYPEOUT 

33:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
33 TYPE ASCIZ STRING 

::GET OVER THE ASCIZ 


; APT FATAL ERROR NUMBER 
77SAVE SFATAL FOR TYPEOUT 
3:GO0 TYPE=-OCTAL ASCII 

sz TYPE 6 DIGITS 

3: SUPPRESS LEADING ZEROS 
zi: TYPE ASCIZ STRING 

::GET OVER THE ASCIZ 


77SAVE SERRPC FOR TYPEOUT 

33G0 TYPE--OCTAL ASCII(ALL DIGITS) 
33 TYPE ASCIZ STRING 

3:GET OVER THE ASCIZ 


SAVE DLADD FOR TYPEOUT 

73GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
72 TYPE ASCIZ STRING 

7;GET OVER THE ASCIZ 


z;SAVE DLVEC FOR TYPEOUT 
33:GO TYPE--OCTAL ASCIICALL DIGITS) 


SEQ 0087 





.MAINDEC=11=CNDVC=A MACY11 30(1046) akatia <7 11: a, PAGE 186" 


CNDVCA.P11 27=DEC-82 11:36 OUTINE = MYTYPE SEQ 0088 
10922 
1092? .SBTTL END OF PASS ROUTINE 
(2) RRA EA AAA AAAAEAETEA AREA EAA EERE E EEA EE AREA EEREAERERAEE EERE EE ES 
(1) + INCREMENT ThE PASS NUMBER ($PASS) 
| @W is INDICATE END-OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
i <1) s*TYPE "END PASS #XXXXxX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
to oe se]F THERES A MONI TOR GO TO IT 
(1) :]F THERE ISN'T JUMP TO SPECIALADDRESS 
/ (1): 011316 SEOP: 
(1) 011316 »=000004 SCOPE 
— ¢1) 011320 005067 167556 CLR STSTNM ::ZERC THE TEST NUMBER 
; (1) 011324 005067 167630 CLR STIMES 3:ZERO THE NUMBER OF ITERATIONS 
/ (1) 011330 005267 16764 INC SPASS : INCREMENT THE PASS NUMBER 
C1) 011334 «042767 100000 167640 BIC #100000, $PASS 33DON'T ALLOW A NEG. NUMBER 
| (1) 011342 005327 DEC (PC)+ 3 ;LOOP? 
' (1) «011344 +=000001 SEOPCT: .WORD 
| 1) 011346 003022 BGT SDOAGN 33 YES 
| (1) 011350 012737 MOV (PC)+,a(PC)+ : RESTORE COUNTER 
(1) 011352 000001 SENDCT: .WO 1 
| (1) 011354 011344 SEOPCT ) 
(1) 911356 104401 011423 TYP, » SENDMG z:TYPE "END PASS #° 
(2) 011362 016746 167614 MOV $PASS,-(SP) 33 SAVE $PASS FOR TYPEOUT 
(2) 011366 104405 TYPDS 2:G0 TYPE=-DECIMAL ASCII WITH SIGN 
(1) 011370 104401 011420 TYPE »SENULL 3;TYPE A NULL CHARACTER 
(1) 011374 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
(1) 011400 001405 BEQ $DOAGN ::BRANCH IF NO MONITOR 
(1) 011402 000005 RESET *:CLEAR THE WORLD 
(1) 011404 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(1) 011406 000240 NOP ::SAVE ROOM 
(1) 011410 000240 NOP 77FO 
(1) 011412 000240 NOP z3ACT11 
(1) 011414 SDOAGN: 
(1) 011414 000137 JMP ac(Pc)+ z RETURN 
(1) 011416 010726 SRTNAD: .WORD SPECIALADDRESS 
(1) 
(1) 011420 377 377 000 S$ENULL: .BYTE <-1,-1,0 ::NULL CHARACTER STRING 
(1) 011423 015 042412 042116 SENDMG; "ASCIZ <15><12>/END PASS #/ 
(1) 011430 050040 051501 020123 
(1) 011436 000043 
4 
| 
| 
| 
' 


L 
‘MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 187 


CNDVCA.P11 = 27=DEC=82 11:36 END OF PASS ROUTINE SEQ 0089 
10929 
- 10930 .SBTTL POWER DOWN AND UP ROUTINES 
FERRARA RAEEAE RETA RA EERE EAE AAAAEAEARAEAREREEREKEEAAKEA EERE ES 
“BOWER DOWN ROUTINE 
011440 012737 011604 000024 $PWRDN: MOV § #SILLUP,a#PWRVEC ;;SET FOR FAST UP 
011446 012737 000300 000026 MOV #PR6 ,AHPWRVEC+2 ;;PRIO=6 
011454 010046 MOV RO,=(SP) PUSH RO ON STACK 
011456 010146 MOV R1,=(SP) 7;PUSH R1 ON STACK 
011460 010246 MOV R2,=(SP) 7:PUSH R2 ON STACK 
011462 010346 MOV R3,=(SP) 77PUSH R3 ON STACK 
011464 010446 MOV R4,-(SP) 7:PUSH R4 ON STACK 
011466 010546 MOV R5,=(SP) :;PUSH RS ON STACK 
011470 017746 167444 MOV aSWR,=(SP) PUSH @SWR ON STACK 
011474 010667 000110 MOV SP, SSAVR6 SAVE SP 
011500 912737 011512 000024 MOV § #S$PWRUP,a#PWRVEC’;;SET UP VECTOR 
011506 000000 HALT 
011510 000776 BR .72 HANG UP 


LRRRREAR REAR RATER REE E REAR REA RERE REAR A RARE EA ERE eee 
“POWER UP ROUTINE 
0127357 011604 000024 $PWRUP: ae oe gSGT por FAST DOWN 


011512 

011520 

011524 005067 000060 CLR SSAVR6 7:WAIT LOOP FOR THE TTY 

011530 005267 000054 1$: INC SSAVRG aeWA IT FOR THE INC 

011534 001375 BNE 1$ WORD 

011536 012677 167376 MOV (SP)+,aSWR 7:POP STACK INTO @SwR 

011542 012605 MCV (SP)+,R5 33POP STACK INTO R5 

011544 012604 MOV (SP)+,R4 33POP STACK INTO R4 

011546 012603 MOV (SP)+,R3 ::POP STACK INTO R3 

011550 012602 MOV (SP)+,R2 33POP STACK INTO R2 

011552 012601 MOV Ao :3POP STACK wre R1 

011554 012600 MOV +,RO 33POP_STACK INTO RO 

011556 012737 011440 000024 MOV #SPURON. a#PWRVEC igSeT UP THE POWER DOWN VECTOR 
011564 012737 000300 000026 MOV #PR6,QHPWRVEC+2 ; 76 

011572 104401 TYPE ‘REPORT THE POWER FAILURE 
011574 011612 SPWRMG: .WORD S$POWER 7;POWER FAIL MESSAGE POINTER 
011576 012716 MOV (PC)+, (SP) zsRESTART AT START 

011600 001336 $SPWRAD: .WORD START 3sRESTART ADDRESS 

011602 000002 RTI 

011604 000000 SILLUP: HALT 23 THE as r. SEQUENCE WAS STARTED 
011606 000776 BR 72 BEFOke THE POWER DOWN WAS COMPLETE 
011610 000000 SSAVR6: 0 ;.PUT THE SP HERE 

pr lele 005015 047520 042527 $POWER: .ASCIZ <15><12>''POWER’’ 


000122 


RAR RRA RRA ARR AARA AAA AREA AAA AAA AAA AAA AAO 
kk ek dk dd od = LW WINN WWWW St SS WWW OS 
i SS ee ea 


~EVEN 


Cc a a ee _— = —o — 


MAINDEC=11=CNDVC-A 


CNDVCA.P11 27=DEC-82 1 
10932 
10933 
qi) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
| @ 
a 
| (1) 
i (1) 
(1) 
| = (1): 011622 «105767 
| (1) 011626 100002 
(1) 011630 000000 
(1) 011632 000430 
(1) 011634 010046 
(1) 011636 017600 
(1) 011642 122767 
(1) 011650 001011 
(1) 011652 132767 
(1) 011660 001405 
(1) 011662 010067 
(1) 011666 004767 
(1) 011672 000000 
| (1) 011674 132767 
| 1) 011702 001003 
| G1) 011704 112046 
| (1) 011706 001005 
| 1) 011710 005726 
| @) 011712 012600 
(1) 011714 062716 
(1) 011720 000002 
(1) 011722 122716 
(1) 011726 001430 
(1) 011730 122716 
(1) 011734 001006 
(1) 011736 005726 
(1) 011740 104401 
(1) 011742 001171 
| (1) 011744 105067 
, 011750 000755 
| = (1) 011752 004767 
| (1) 011756 126726 
(1) 011762 001350 
(1) 011764 016746 
| (1) 011770 105366 
(1) 011774 002770 
| (1) 011776 004767 
| 
| 


ed A 30(1046) 


1:36 


167331 


000002 
000001 


000100 


000004 
000774 


000040 


000002 
000011 
000200 


000130 


000056 
167174 


167164 
000001 
000032 


167344 
167335 


167313 


M 
27=DEC-82 11:37 PAGE 188 
POWER DOWN AND UP ROUTINES 


-SBTTL TYPE ROUTINE 


SRRRRAAAEEERAARERERRE ERE REE EE EEEEEEAAE EEE EE EERE AEREEAEREE RES 


TaR OUTINE TO iYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 


3 *THE ne WILL reg A_NUMBER OF NULL CHARACTERS AFTER_A 
;*NOTE1 SNULL CONTAINS THE CHARACTER TO BE USED AS 
SILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


‘*NOTE2: 
> *NOTE3: 
ot 


S*CALL: 
1) USING A TRAP INSTRUCTION 
YPE  ,MESADR 


;#0R 


YPE 
MESADR 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


$TPFLG 
1$ 


3$ 

0, ot i 
a2(SP) ,RO 
#APTENY, SENV 


6 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC ,SATY3 


#APTCSUP,SENVM 


(RO)+,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
ee 
#CRLF,(SP) 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


$NULL ,~(SP) 
1(SP) 

6$ 

PC ,STYPEC 


33MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


31S THERE A TERMINAL? 
33BR IF YES 
:TLEAVE™ IF NO TERMINAL 


‘SAVE RO 
:iGET ADDRESS OF ASCIZ STRING 
:3RUNNING IN APT MODE 
:NO,GO CHECK FOR APT CONSOLE 
:38PO OL MESSAGE TO APT 
O CHECK FOR CONSOLE 
: setup MESSAGE ADDRESS FOR APT 


ADDRESS. 

: ots SUPPRESSED 

EYES SKIP YPE OUT 

3 PUSH CHARACTER TO BE ak ia STACK 
BR IF IT ISN*T THE TERMINA 

331F TERMINATOR POP IT OFF THE STACK 


0 
i ZADJUST RETURN PC 
::BRANCH IF <HT> 
s;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
3: TYPE A CR AND LF 


s3CLEan CHARACTER COUNT 
33:GET_NEXT CHARACT bs 
33G0 TYPE a CHARACTER 
eels IT TIME FOR oe CHARS. ? 
321F_NO GO GET NEXT 
$3667 # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 

i :DOES A NULL NEED TO BE TYPED? 

BR IF NO=--GO POP THE NULL OFF OF STACK 
3:G0 TYPE A NULL 


LI NE FEED. 
THE FILLER CHARACTER. 


SEQ 0090 
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/CNDVCA.P11 27-DEC-82 11:36 ROUTINE SEQ 0091 
(1) 012002 105367 000072 DECB SCHARCNT 3:DO_ NOT COUNT AS A COUNT 
a3 012006 000770 BR 7$ :;LOOP 
ae HORIZONTAL TAB PROCESSOR 
(1) 012010 112716 000040 8$: MOVB #* (SP) 3;REPLACE TAB WITH SPACE 
(1) 012014 004767 000014 9$: JSR PC, $TYPEC 23 TYPE A SPACE 
(1) 012020 132767 000007 000052 BITB #7, SCHARCNT 3BRANCH IF NOT AT 
(1) 012026 001372 BNE 33TAB STOP 
(1) 012030 005726 TST (SP)+ :;POP SPACE OFF de 
(1) 012032 000724 BR 2$ 3:GET_NEXT CHARACTER 
(1) 12034 105777 167110 $TYPEC: TSTB asTPs ;3;WAIT UNTIL PRINTER IS READY 
(1) 012040 100375 BPL $TYPEC 
ots 012042 116677 000002 167102 MOVB 2(SP) ,aSTPB 3;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 012050 122766 000015 000002 CMPB #CR,2(SP) :31S CHARACTER A CARRIAGE RETURN? 
(1) 012056 001003 BNE $ NCH IF _N 
(1) 012060 105067 000014 CLRB $CHARCNT $I YES==CLEAR CHARACTER COUNT 
(1) 012064 000406 BR S$TYPEX T 
(1) 012066 122766 000012 000002 1$: CMPB #LF ,2(SP) ::1S CHARACTER A LINE FEED? 
(1) 012074 001402 BEQ $TYPEX ;sBRANCH_ IF YES 
(1) 012076 105227 INCB (PC)+ 3;COUNT THE CHARACTER 
(1) 012100 000000 $CHARCNT:.WORD 0 3; CHARACTER COUNT STORAGE 
A 012102 000207 $TYPEX: RTS PC 
(1) 
(1) 


a S| <n 
' 


‘ eens 


' 
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FFARR AAA A AAA AA AAA AA AA ABABA AAA EEE OOOO PN Oe Os Om 
kek ek ek tk ts a an os Ss ot Sh = SS APPA) 9 OP 9 OS SS 9 2 SS SS 2 SS SN OP OP Ss SP 
ee ee ee ee ee ee SY Yew 


| CNDVCA.P11 


oo SO SCOCCOCSCOoOSo GCOOCoCoCoOooooO 

ba a 2 ab a od Dd SS os I I 

MM POM PoPononofonefn 3 Pororororrorrnrory 

SS 85 Sseseue reenevacce 
oN NNO 

R NO RNSRSRS SSENSNVSRWR 


= 
So 


02276” 


001456 
104401 


105777 
100375 


117746 
042716 
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000176 
167024 
167020 


166742 


166736 
177600 


000025 


012624 
000006 


000015 
000004 
000002 
000006 


001171 
166643 


167026 


000001 


166662 


000001 
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TYPE ROUTINE 


- SBTTL 


TTY INPUT ROUTINE 


FE RTRAAAAAR AREER EREE AERA EEAEEEEEEAAERARARAEAEEEREERERAARAEAEARERAE EY 


-ENABL 


LSB 


PERRERP RRA RRAAAAAAAAAAAEAAAAERERAAAAEREKAAARAAHTAeeAAAeAeeTeeee 

+ RSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 

S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SultcH REGISTER TRAP CALL 


: *WHEN —s iy TTY FLAG MOD 
cMP SWREG,SWR 


$CKSWR: 


SGTSUR: 


19$: 


7$: 


9$: 


20$: 


10$: 


~~ 
oor 
AM 


TSTB asks 

MOVB  a@$TKB,-(SP) 
BIC #°C177, (SP) 
CMP #7, (SP)+ 


15 
CMPB SAUTOB #1 
15$ 


TYPE oSCNTLG 
o SMSWR 
MOV SWREG,=(SP) 


Y »SMNEW 
CLR =(SP) 
CLR -(SP) 
-THE NEW SWR 
$18 aSTKS 
BPL 
MOVB  a$TKB, =(SP) 
BIC “C177, (SP) 


E 
TYPE eSCNTLU 
#6,SP 


E. 
s3Ts THE SOFT=SWR SELECTED? 
NCH IF NO 


9 


R THERE? 
F NO, DON'T WAIT AROUND 
+ SAVE THE CHAR 
:iSTRIP-OFF THE ASCII 
i318 IT A CONTROL 6? 
RETURN TO USER 
SIAR Are WE RUNNING IN AUTO-MODE? 
tIBRANCH IF YES 


33ECHO THE CONTROL=G (*G) 

33 TYPE CURRENT ye Ui dk 

73SAVE SWREG FOR TYPEOUT 

33:GO TYPE=-OCTAL ASCIICALL DIGITS) 
33;PROMPT FOR NEW SWR 

3;CLEAR COUNTER 


33;CHAR THERE? 
33;I1F NOT TRY AGAIN 


3;PICK UP CHAR 
33MAKE IT 7-BIT ASCII 


31S IT A_CONTROL=U? 
;;BRANCH IF NOT 

3-YES, ECHO CONTROL-U (“U) 
::1GNORE PREVIOUS INPUT 
;LET’S TRY IT AGAIN 


s31S Aa A <CR>? 
eT IF NO 
sey ee i FIRST CHAR? 


R UP STACK 
$TECHO O <CR> AND <LF> 
3RE-ENABLE ay KBD INTERRUPTS? 
:TBRANCH IF NO 


SEQ 0092 


c 8 
MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 189-1 
CNDVCA.P11 =. 27=DEC=82 11:36 TTY INPUT ROUTINE SEQ 0093 
(1) 012276 012777 000100 166640 MOV #100,a$TKS :;RE-ENABLE TTY KBD INTERRUPTS 
012304 000002 15$: RTI +: RETURN 
012306 004767 177522 16$: JSR PC STVPEC t:ECHO CHAR 
012312 021627 000060 CMP (SP) ,# ::CHAR < 0? 
012316 002420 BLT 188 ::BRANCH IF YES 
012320 021627 000067 CMP (SP) ,#67 S:CHAR > 7? 
012324 003015 BGT 18$ :TBRANCH IF YES 
012326 042726 000060 BIC #60, (SP)+ t:STRIP=OFF ASCII 
012332 005766 000002 TST 2(SP) t:1S THIS THE FIRST CHAR 
012336 001403 BEQ 73 ::BRANCH IF YES 
012340 006316 ASL (SP) 72:NO, SHIFT PRESENT 
012342 006316 ASL (SP) 33 CHAR OVER TO MAKE 
012344 006316 ASL (SP) ‘ 5 ROOM FOR NEW ONE. 
012346 005266 000002 17$: INC 2(SP) +:KEEP COUNT OF CHAR 
012352 056616 177776 BIS =2(SP), (SP) +:SET IN NEW CHAR 
012356 000707 BR 7$ +:GET THE NEXT ONE 
012360 104401 001170 18$: ‘TYPE SQUES t:TYPE 2<CR><LF> 
012364 000720 an, BR 50$ +:SIMULATE CONTROL-U 


FRAREAAAEARAEAAAEAERAAREAERARETERARAERARERERERERAREREREREAEEE AES 


peTHIS | ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
st 


e L 
s* RDCHR +3 INPUT A SINGLE Oe athe FROM THE TTY 
3 RETURN HERE [CHARACTER IS ON THE STACK 
‘od +: WITH PARITY BIT STRIPPED OFF 
012366 011646 SRDCHR: MOV (SP) ,=(SP PUSH DOWN THE PC 
012370 016666 000004 000002 MOV 4(SP $P5 ,2tS S:SAVE THE PS 
012376 105777 166542 1$: TSBs a$TK ::WALT FOR 
012402 100375 BPL 1$ tA CHARACTER 
012404 117766 166536 000004 MOVB  a@$TKB,4(SP) ::READ T HE T 
012412 042766 177600 000004 BIC ptt TN 4(SP) 3:GET RID OF Me IF ANY 
012420 026627 000004 000023 CMP 4(SP),#23 t:1S IT A CONTROL=S? 
012426 001013 BNE 3 BRANCH IF NO 
012430 105777 166510 2s: TSTB asTKs t WAIT FOR A CHARACTER 
012434 100375 BPL 2$ ::LOOP UNTIL ITS THERE 
012436 117746 166504 MOVB  a$TKB, (SP) S:GET CHARACTER 
012442 042716 177600 BIC #°C177, (SP) SIMAKE IT a oiT ASCII 
012446 022627 000021 CMP (SP)+,#21 ::1S IT A CONTROL-0? 
012452 001366 BNE 2$ ze IF NOT DISCARD IT 
012454 000750 BR 1$ S, RESUME 
012456 026627 000004 000140 3$: CMP 4(SP),#140 +:1S IT UPPER CASE? 
012464 002407 BLT 4$ i }BRAN CH IF YES 
012466 026627 000004 000175 CMP 4(SP) #175 [1S IT A SPECIAL CHAR? 
012474 003003 BGT 4$ 3 3BRA NCH IF YES 
012476 042766 000040 000004 BIC #40,4(SP) ZiMAKE IT UPPER CASE 
012504 000002 4$: RTI +60 BACK TO USER 


TITTITITITITITITITITIT TTI TTT iTi iti ii itt iii iii iti iti 


7*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 

:* RDOLIN 3; INPUT A STRING FROM THE TTY 

3* RETURN HERE 3 ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
g® 7; TERMINATOR WILL BE A BYTE OF ALL O'S 


LL LLB OLR OR PAPAL LA LA LP PA LL LL yy Py my Pm Pm EO Om Om om 
ee er ee ee a ee a a ee ae a a a ae a ae ee ee ee a Se a a ee Se ww ee we www 
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CNDVCA.P11 = 27=DEC=82 11:3 TTY INPUT ROUTINE SED 0094 
(1) 
(1) 012506 010346 SRDLIN: MOV R3,=(SP) TSAVE R3 
(1) 012510 012703 012614 1$: MOV #STTYIN,R3 +:GET ADDRESS 
(1) 012514 022703 012624 2$: CMP MSTTYINGB.,R3 =: BUFFER FULL? 
(1) 012520 101405 BLOS 4$ 7:BR IF YES 
(1) 012522 104410 RDCHR +:GO READ ONE CHARACTER FROM THE TITY 
(1) 012524 112613 MOVB (SP) +, (R3) +:GET CHARACTER 
(1) 012526 122713 000177 10$:  CMPB  #177,(R3) ::1S IT A RUBOUT 
(1) 012532 001003 BNE 3$ +:SKIP IF NOT 
(1) 0125346 104401 001170 4$: TYPE $QUES T:TYPE A?" 
(1) 012540 000763 BR i$ t:CLEAR THE BUFFER AND LOOP 
(1) 012542 111367 000044 3$: MOVB = (R3),9$ ::ECHO THE CHARACTER 
(1) 012546 104401 012612 TYPE =, 
(1) 012552 122723 000015 CMPB #15, (R3)+ t:CHECK FOR RETURN 
(1) 012556 001356 BNE +:LOOP IF NOT RETURN 
(1) 012560 105063 177777 CLRB —s- = 173) *: CLEAR RETURN (THE 15) 
(1) 012564 104401 001172 TYPE  ,$LF [:TYPE A LINE FEED 
(1) 012570 012603 MOV (SP)+,R3 7 RESTO 
(1) 012572 011646 MOV (SP) ,<(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 012574 016666 000004 000002 MOV 4(SP5,2¢SP) i: FIRST ASCII CHARACTER ON IT 
(1) 012602 012766 012614 000004 MOV #STTYIN,4(SP) 
(1) 012610 000002 RTI 7 RETURN 
(1) 012612 000 9$: .BYTE 0 [:STORAGE FOR ASCII CHAR. TO TYPE 
(1) 012613 000 “BYTE 0 :: TERMINAT 
(1) 012614 000010 $TTYIN: .BLKB 8. ;RESERVE 8 BYTES FOR TTY INPUT 
(1) 012624 052536 005015 000 $CNTLU: <ASCIZ /*U/<i5><12> 3; CONTROL YU" 
(1) 012631 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12> ::CONTROL ''G 
(1) 012636 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
(1) 012644 020075 000 
(1) 012647 040 047040 053505 S$MNEW: .ASCIZ / NEW = / 
(1) 012654 036440 000040 


E 
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CNDVCA.P11 27=DEC-82 11:36 Y INPUT ROUTINE SEQ 0095 
10938 
10939 .SBTTL APT COMMUNICATIONS ROUTINE 
(2)  RRERAAEAAAAAAEEAEAEATAEREEAEEAAAERERARAAAAEAERERARAEAATEEREREHRERES 
(1) 012660 112767 000001 000236 $ATY1: MOVE a SFFLG ::TO REPORT FATAL ERROR 
(1) 012666 112767 000001 000226 $ATY3: MOVB 1. $MFLG ::T0 TYPE A MESSAGc 
(1) 012674 000403 BR sat YC 
(1) 012676 112767 000001 000220 $ATY4: MOVB 4#1,$FFLG ::TO ONLY REPORT FATAL ERROR 
(1) 012704 SATYC: 
(3) 012704 010046 MOV RO,=(SP) ::PUSH RO ON STACK 
(3) 012706 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
(1) 012710 105767 000206 TSTB = $MFLG 3 SHOULD TYPE A MESSAGE? 
(1) 012714 001450 BEQ 5$ SIF ON BR 
(1) 012716 122767 000001 166270 CMPB Ss MAP TENV, SENV : OPERATING UNDER APT? 
(1) 012724 001031 BNE ZIF NOT: BR 
(1) 012726 132767 000100 166261 BITB § #APTSPOOL,SENVM $ SHOULD SPOOL MESSAGES? 
(1) 012734 001425 BEQ 3 
(1) 012736 017600 000004 MOV a4(SP),RO 3:GET 'RESSAGE ADDR. 
(1) 012742 062766 000002 000004 ADD #2,4(SP) P RETURN ADDR. 
(1) 012750 005767 166220 1$: TST SMSGTYPE r:SEE IF "BONE W/ LAST XMISSION? 
(1) 012754 001375 BNE 1$ t:1F NOT: WAIT 
(1) 012756 010067 166226 MOV RO, $MSGAD 
(1) :;PUT ADDR IN MAILBOX 
(1) 012762 105720 2$: TSTB (ROD + ::F IND END OF MESSAGE 
(1) 012764 001376 BNE 2$ 
(1) 012766 166700 166216 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(1) 012772 ASR RO z3GET MESSAGE LNGTH IN WORDS 
(1) 012774 010067 166212 MCV RO, $MSGLGT T LENGTH IN MAILBOX 
(1) 013000 012767 000004 166166 MOV #4; SMSGTYPE TEL APT TO TAKE MSG. 
(1) 013006 000413 BR 
(1) 013010 017667 000004 000016 3$: MOV a4(SP),4$ :3PUT MSG ADDR IN JSR LINKAGE 
(1) 013016 062766 000002 000004 ADD #2,4(SP) - BUMP RETUR N ADDRESS 
(3) 013024 016746 164746 MOV 177776, =(SP) 72PUSH 199776 ON STACK 
(1) 013030 004767 176566 JSR PC, $TYPE Z:CALL TYPE MACRO? 
(1) 0130346 4$: .WORD 0 
(1) 013036 5$: 
(1) 013036 105767 000062 10$: TSTB = SFFLG z:SHOULD REPORT FATAL ERROR? 
(1) 013042 001416 BEQ 12$ t:1F NOT: B 
(1) 013044 005767 166144 TST SENV :3RUNNING UNDER APT? 
(1) 013050 001413 BEQ 12$ F NOT: 
(1) 013052 767 166116 11$: TST SMSGTYPE : FINISHED LAST MESSAGE? 
(1) 013056 001375 BNE 11$ NOT: WAIT 
(1) 013060 017667 000004 166110 MOV a4(SP),$FATAL  :.GET ERROR ¢ 
(1) 013066 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
(1) 013074 005267 166074 INC SMSGTYPE Zi TELL abi TO TAKE ERROR 
(1) 013100 105067 000020 12$:  CLRB  $FFLG *:CLEAR FATAL FLAG 
(1) 013104 105067 000013 CLRB SLFLG ::CLEAR LOG FLA 
(1) 013110 105067 000006 CLRB SMF T:CLEAR MESSAGE FLAG 
(3) 013114 012601 MOV (SP)+,R1 t: STACK INTO R1 
(3) 013116 600 V (SP)+.RO 3; :POP STACK INTO RO 
(1) 013120 000207 RTS RN 
(1) 013122 000 SMFLG: .BYTE 0 [:MESSG. FLAG 
(1) 013123 000 SLFLG: .BYTE 0 
(1) :LOG FLAG 
(1) 013124 000 SFFLG: .BYTE 6° ZrFATAL FLAG 
(1) 013126 .EVEN 


MAINDEC=11=CNDVC=A 
CNDVCA.P11 27=DEC-82 11:36 
(1) 000200 
(1) 000001 
(1) 000100 
(1) 000040 
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APT COMMUNICATIONS ROUTINE 


APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


SEQ 0096 


Eee 


G 
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CNDVCA.P11 27=DEC=82 11:36 APT COMMUNICATIONS ROUTINE SEQ 0097 

10941 

10%e .SBTTL ERROR HANDLER ROUTINE 
(2) sé PARR REEAZALARZAZLALALALALALALALELEL ALES ALES EERE EAR ERE RE RRR RRR ARRAS AAS SS OS 
(1) S*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) SeSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) ‘AND GO TO MYTYPE ON ERROR 
(1) S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) + *SW15= T ON ERROR 
(1) + eSW13=1 INHIBIT ERROR TYPEOUTS 
(1) *SW10=1 BELL ON ERROR 
(1) *SW09=1 LOOP ON ERROR 
(1) s*CALL 
4) :* ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 013126 SERROR: 
(1) 013126 104407 CKSWR ri TEST FOR CHANGE IN SOF T=SWR 
(1) 013130 105267 165747 7$: INCB = SERFLG ZiSET THE ERROR FLAG 
(1) 013134 001775 BEQ 7$ ‘DON'T LET THE FLAG GO TO ZERO 
(1) 013136 016777 165740 165776 MOV $TSTNM, DISPLAY ; DISPLAY TEST aUnBER AND ERROR FLAG 
(1) 013144 032777 002000 165766 BIT #B1T10.aSWR :BELL ON ERRO 
(1) 013152 001402 BEQ 1$ SIN KIP 
(1) 013154 104401 001164 TYPE SBELL 3 TRING BELL 
(1) 013160 005267 165726 1$: INC $ERT COUNT The NUMBER OF ERRORS 
(1) 013164 011667 165726 MOV CSP). FSERRPC t:GET ADDRESS OF ERROR INSTRUCTION 
(1) 013170 162767 000002 165720 SUB #2, SERRPC 
(1) 013176 117767 165714 165710 MOVB a$ERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 013204 032777 020000 165726 BIT #B1T13,aSWR +: SKIP TYPEOU 1 IF SET 
(1) 013212 001004 BNE 208 ::SKIP TYPE OUTS 
(1) 013214 004767 175706 JSR PC ,MYTYPE $:G0 TO USER ERROR ROUTINE 
(1) 013220 104401 001171 TYPE -SCRLF 
(1) 013224 208: 
(1) 013224 122767 000001 165762 CMPB #APTENV,SENV =; ;RUNNING IN APT MODE 
(1) 013232 001007 BNE :zNO,SKIP APT ERROR REPORT 
(1) 013234 116767 165654 000004 MOVB $ITEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
(1) 013242 004767 177430 JSR PC, SATY4 : REPORT FATAL ERROR TO APT 
(1) 013246 000 21$: BYTE 0 
(1) 013247 "BYTE 0 
(1) 013250 000777 228: BR 228 ::APT ERROR LOOP 
(1) 013252 005777 165662 2$: TST aSWR ::HALT ON ERROR 
(1) 013256 100002 BPL 3$ ::SKIP IF CONTINUE 
(1) 013260 000000 HALT i EHALT ON ERROR! 
(1) 013262 104407 CKSWR "TEST FOR CHANGE IN SOFT=SwR 
(1) 013264 032777 001000 165646 3%: BIT #B1T09,aSwR LOOP 50 ERROR SWITCH SET? 
(1) 013272 001402 BEQ 4 F NO 
(1) 013274 016716 165610 MOV SLPERR, (SP) :TFUDGE RETURN FOR LOOPING 
(1) 013300 005767 165656 4$: TST $ESCAPE CH ECK FOR AN ESCAPE ADDRESS 
(1) 013304 001402 BEQ 5$ [:BR IF NONE 
C1) 013306 016716 165650 i MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 013312 022737 011404 000042 CMP #SENDAD,a#42 =; ;ACT=11 AUTO=ACCEPT? 
(1) 013320 001001 BNE 6$ 7:BRANCH IF NC 
(1) 013322 000000 HALT SIYES 
(1) 013324 6$: 
(1) 013324 000002 RTI RETURN 
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CNDVCA.P11 27=DEC-82 11:36 ERROR HANDLER ROUTINE SEQ 0098 

10944 

10945 .SBTTL SCOPE HANDLER ROUTINESTARS 
(1) :*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) [AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) :*SW14=1 LOOP ON TEST 
(1) :*SW11=1 TNMIBIT [ERATIONS 
(1) :*SwO9=1 LOOP ON ERROR 
(1) :*SWO8=1 LOOP ON fest IN SWR<7:0> 
(1) > *CALL 
Cy) j* SCOPE 7; SCOPE=I10T 
(1) 013326 S$SCOPE: 
(1) 013326 104407 CKSWR TEST FOR ee IN SOF T=SwR 
(1) 013330 032777 040000 165602 1$: BIT #B1T14,aSWR 3 LOOP ON PRESENT TEST? 
(1) 013336 001114 BNE SOVER “YES IF SW14=1 
(1) s#PERESTART OF CODE FOR THE XOR TESTER##MAA 
(1) 013340 000416 $xTST 6$ 331F RUNNING ON THE ‘KOR’ TESTER CHANGE 
(1) t: THIS INSTRUCTION TO A “'NOP’’ (NOP=240) 
(1) 013342 013746 000004 MOV Q#ERRVEC ,-(SP) iT SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 013346 012737 013366 000004 MOV W5$,QNERRVEC = 3 3SET TIMEOUT 
(1) 013354 005737 177060 TST a4#177060 Fine SUT ON XOR? 
(1) 013360 012637 000004 MOV (SP)+, a#ERRVEC :ZRESTORE THE ERROR VECTOR 
(1) 013364 000463 BR SSVLAD ::GO0 TO THE NEXT TEST 
(1) 013366 022626 5$: CMP (SP)+, (SP)+ 7:CL EAR THE STACK AFTER A TIME OUT 
(1) 013370 012637 000004 MOV (SP) +, a#ERRVEC i :RESTORE THE ERROR VECTOR 
(1) 013374 000423 $ “LOOP ON THE PRESENT TEST 
(1) 013376 6$::###NHEND OF CODE FOR THE XOR TESTERMHS 
(1) 013376 032777 000400 165534 BIT #B1T08,aSwR ; :LOOP on SPEC. TEST? 
(1) 013404 001404 BEQ F 
(1) 013406 127767 165526 165466 CMPB Ss @SWR, STSTNM t:ON THE RIGHT TEST? SWR<7:0> 
(1) 013414 001465 BEQ SOVER [:BR IF YES 
(1) 013416 105767 165461 2$: TSTB © SERFLG-CC; [:HAS AN ERROR OCCURRED? 
(1) 013422 001421 BEQ 3$ ::BR IF NO 
(1) 0134246 126767 165465 165451 CMPB = $ERMAX,SERFLG © ;MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 013432 101015 BHI F 
(1) 013434 032777 001000 165476 BIT #B1T09,aSwR : LOOP ON ERROR? 
(1) 013442 001404 BEQ 4$ [BR IF 
(1) 013444 016767 165440 165434 7$: MOV SLPERR,SLPADR tISET LOOP ADDRESS TO LAST SCOPE 
(1) 013452 4 BR SOVER 
(1) 013454 105067 165423 é$: CLRB = SERFLG 33 ZERO THE ERROR FLAG 
(1) 013460 005067 165474 CLR STIMES “CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 013464 0004 BR 1$ [ESCAPE TO THE NEXT TEST 
(1) 013466 032777 004000 165444 3$: BIT #B1T11,aSwR i: INHIBIT ITERATIONS? 
(1) 013474 001011 BNE 1 R IF YES 
(1) 013476 005767 165500 TST $PASS :31F first PASS OF PROGRAM 
(1) 013502 001406 BEQ 1$ : NHIBIT ITERATIONS 
(1) 013504 005267 165374 INC SICNT +S INCREMENT ITERATION COUNT 
(1) 013510 026767 165444 165366 CMP STIMES,SICNT i: CHECK THE NUMBER OF ITERATIONS MADE 
(1) 013516 002024 BGE SOVER 7BR IF MORE ITERATION REQUIRED 
(1) 013520 012767 000001 165356 1$: MOV #1,SICNT :REINITIALIZE THE ITERATION COUNTER 
(1) 013526 016767 000052 165424 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
(1) 013534 105267 165342 SSVLAD: INCB $TSTNM 33 COUNT TEST RUMBERS 
(1) 013540 116767 165336 165432 MOVB $TSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
(1) 013546 011667 165334 MOV (SP), SLPADR >:SAVE SCOPE LOOP ADDRESS 
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MAINDEC=11=CNDVC=A 
CNDVCA.P11 27=DEC-82 11:36 SCOPE HANDLER ROUTINESTARS SEQ 0099 
(1) 013552 011667 165332 MOV (SP), ae hay 43 ERROR LOOP ADDRESS 
(1) 013556 005067 165400 CLR bs it CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 013562 112767 000001 165325 MOVB St ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 013570 016777 165306 165344 SOVER: MOV an 201 SPLAY :IDISPLAY TEST NUMBER 
(1) 013576 016716 165304 MOV SLPADR, (SP) 3;FUDGE RETURN ADDRESS 
(1) 013602 000002 RTI zsFIXES PS 
(1) 013604 003720 $MXCNT: 2000. 33MAX. NUMBER OF ITERATIONS 


J 
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CNDYCA.P11 27=DEC=82 11:36 SCOPE HANDLER ROUTINESTARS SEQ 0100 

10947 

10948 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) sLUeeeeeeeareeereeeeeeeeeeeeeeeeeeeeearerereeetereererererereees 
(1) THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) 3*N ER IS SITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) T*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) ; #REPLACED WITH SPACES. 

Bal 2 

(1) 3* MOV NUM, =(SP) 37PUT THE BINARY NUMBER ON THE STACK 
ne 3* TYPDS ::G0 TO THE ROUTINE 
( 
(1) 013606 $TYPDS: 
(3) 013606 010046 MOV RO,-(SP) 77PUSH RO ON STACK 
(3) 013610 010146 MOV R1,-(SP) 37PUSH R1 ON STACK 
(3) 013612 010246 MOV R2,-(SP) 7zPUSH R2 ON STACK 
(3) 013614 010346 MOV R3,-(SP) gs H R3 ON STACK 
(3) 013616 010546 MOV R5,-(SP) 3s RS ON STACK 
(1) 013620 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 
(1) 013624 016605 000020 MOV 20(SP),R5S ;;GET T INPUT NUMBER 
(1) 013630 100004 BPL 1$ ::BR IF INPUT IS POS. 
(1) 013632 005405 NEG RS 7 MAKE THE BINARY NUMBER POS. 
(1) 0136346 112766 000055 000001 MOVB = # "=, 1 (SP) [MAKE THE ASCII NUMBER NEG. 
(1) 013642 005000 1$: CLR RO 7:ZERO THE CONSTANTS INDEX 
(1) 013644 012703 014022 MOV #SDBLK,R3 7:SETUP THE OUTPUT POINTER 
(1) 013650 112723 000040 MOVB #° , (R3)+ 7;SET THE FIRST CHARACTER TO A BLANK 
(1) 013654 005002 2$: CLR R >:CLEAR THE BCD NUMBER 
(1) 013656 016001 014012 MOV SDTBL(RO),R1 ::GET THE CONSTANT 
(1) 013662 160105 3$: SUB R1,R5S ::FORM THIS BCD DIGIT 
(1) 013664 002402 BLT 4$ [:BR IF DONE 
(1) 013666 005202 INC R2 7: INCREASE THE BCD DIGIT BY 1 
(1) 013670 000774 BR 3$ 
(1) 013672 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
(1) 013674 005702 TST R2 t:CHECK IF BCD DIGIT=0 
i1) 013676 001002 BNE 5$ T:FALL THROUGH IF 0 
(1) 013700 105716 TSBs (SP) T:STILL DOING LEADING 0°S? 
(1) 013702 100407 BMI 7$ [:BR IF YES 
(1) 013704 106316 5$ ASLB (SP) > :MSD? 
(1) 013706 103003 BCC 6$ [:BR IF NO 
(1) 013710 174663 000001 177777 MOVB  1(SP).-1(R3) =: :YES==SET THE SIGN 
(1) 013716 052702 000060 6$: BIS #'0,R2 S:MAKE THE BCD DIGIT ASCII 
(1) 013722 052702 000040 7$: BIS #* ,R2 3 MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 013726 1102235 MOVB R2,(R3)+ 77PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 013730 005720 TST (RO) + 7: JUST INCREMENT ING 
(1) 013732 020027 000010 CMP RO, #10 [:CHECK THE TABLE INDEX 
(1) 013736 002746 BLT 2$ ::G0 DO THE NEXT DIGIT 
(1) 013740 003002 BGT BE ::G0 TO EXIT 
(1) 013742 010502 MOV R5,R2 7:GET THE LSD 
(1) 013744 000764 BR 6$ $:G0 CHANGE TO ASCII 
(1) 013746 105726 8: TSTB ss (SPD* t:WAS THE LSD THE FIRST NON-ZERO? 
(1) 013750 100003 BPL 9$ [:BR IF 
(1) 013752 116663 177777 177776 MOVB <1(SP),-2(R3)  ::YES==SET THE SIGN FOR TYPING 
(1) 013760 105013 9$: CLRB ss (R33) [:SET THE TERMINATOR 
(3) 013762 012605 MOV (SP)+,R5 +:POP STACK INTO RS 
(3) 0137 012603 MOV (SP)+,R3 :7POP STACK INTO R3 


moe oe oe 
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(3) 013766 012602 MOV (SP)+,R2 : POP STACK INTO R2 
(3) 013770 012601 MOV (SP)+-R1 P STACK INTO R1 
(3) 013772 012600 MOV (SP) + RO :tpop STACK INTO RO 
(1) 013774 104401 014022 TYPE Lk ‘NOW TYPE THE NUMBER 
(1) 014000 016666 000002 000004 MOV http 4 (SP) *:ADJUST THE STACK 
(1) 014006 012616 MOV (SP)+, (SP) 

(1) 014010 000002 RTI ;;RETURN TO USER 
(1) 014012 023420 $DTBL: 10000. 

(1) 014014 007750 1000. 

(1) 014016 000144 100. 

(1) 014020 000012 10. 

(1) 014022 000004 SDBLK: .BLKW 4 
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000000 


000002 
000001 


000006 
000005 


000145 
000006 
000132 


000125 
000012 


000076 
177770 


000211 


000171 
000165 
000154 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0102 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


peteeeeeeedeeeeeeeeeeeeeeeeeeeeeeneeeeeeetenteeeeeeeeenenenees 
TS THIS ROUTINE IS USED TO > A 16-BIT BINARY NUMBER TO A 6-DIGIT 
T*OCTAL (ASCII) NUMBER AND TYPE IT. 

i e$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*C 

3* MOV NUM, =(SP) : NUMBER TO BE TYPED 

yt TYPOS 3:CALL FOR TYPEOUT 

oe BYTE N zzN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
Thad -BYTE ™ 3 M=1 OR °. 

hl 1=TYPE LEADING ZEROS 

3* + O=SUPPRESS LEADING ZEROS 

3* 


3 *$TYPON- > tiie HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i ¥$T¥POS Ok $TYPOC 


je mov NUM, =(SP) ssNUMBER TO BE TYPED 

:* YPON +:CALL FOR TYPEOUT 

ereacee HERE FOR TYPEOUT OF A 16 BIT NUMBER 

* 

i* MOV NUM, =(SP) ZNUMBER TO BE TYPED 

ie TYPOC tI CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),=(SP) sPICKUP THE MODE 
MCVB  1(SP).$OFILL + SLOAD ZERO FILL SWITCH 
MOVB  (SP)+,$OMODE+1 ;;:NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) > :ADJUST RETURN ADDRESS 
BR $TYPON 

STYPOC: MOVB #1,$OFILL z:SET THE ZERO FILL SWITCH 


MOVB #6, SOMODE +1 33SET FOR S1X(6) 
STYPON: — #5,,SOCNT eiSet Te ITERATION COUNT 


Vv R a7 (SP) oe 
MOV R4,-(SP) Zs SAVE RS 
MOV R5,-(SP) 7:SAVE RS 
a pases ae 3:GET THE NUMBER OF DIGITS TO TYPE 
ADD #6,R4 : SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4 ,SOMODE seseve IT FOR USE 
MOVB SOFILL,R4 3;GET THE mS FILL SWITCH 
MOV 12(SP),R5 3. CKUP THE INPUT NUMBER 
CLR R3 7:CLEAR THE OUTPUT WORD 
1$: ROL RS z;ROTATE MSB INTO ‘'C’’ 
BR 3$ 33 MSB 
2$: ROL R5 :2FORM THIS DIGIT 
ROL R5 
ROL RS 
MOV R5,R3 
3$: ROL R3 3:GET LSB OF THIS picts 
DECB SOMODE {big f THIS DIGIT? 
BPL 7 R IF NO 
BIC #177770,R3 33GET ate OF JUNK 
BNE 4$ 


TEST FOR 
TST R4 >;SUPPRESS THIS 0? 


c---- 
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4250 002 
4252 000 
4253 000 
4254 000 
4255 000 
4256 000000 


ce A 


4$: 
5$: 


7$: 


6$: 
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BINARY TO OCTAL (ASCII) AND TYPE 


5$ 
4 


(SP)+,R3 
2(SP) ,4(SP) 


sBR IF YES 
DON'T SUPPRESS ANYMORE 0°S 
3sMAKE THIS DIGIT ASCII 

3 sMAKE osett whe NOT ALREADY 
at FOR TYPING 

Ug THIS DIGIT 


R_IF DONE 
 PINSURE al yeh ise T A BLANK 
3360 oe Fs T DIGIT 


z3REST R3 
33SET THE STACK FOR RETURNING 


3 ;RETURN 
TESTORAGE FOR ASCII DIGIT 
:;TERMINATOR FOR TYPE ROUTINE 
+ QCTAL DIGIT et ER 

sZERO FILL SWITC 
S INUMBER OF DIGITS TO TYPE 


SEQ 0103 


c-- 
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-CNDVCA. Pll 27-DEC=82 11:36 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0104 
' 10953 
wre -SBTTL TRAP DECODER 
(2 FERRARA E REE AE EE ERE EEE REE AEERAE EERE REAR AEE RHEE RREREREEERER 
( + STHIS aout WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
( + AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
( 3 *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
: :*GO TO THAT ROUTINE. 
( 014260 010046 $TRAP: MOV RO, ty 4 sSAVE RO 
014262 016600 000002 MOV 2(57),RO 33GET TRAP ADDRESS 
014266 005740 TST =(RO) UP BY 2 
014270 111000 MOVB (RO) ,RO GET RIGHT BYTE OF TRAP 
014272 006300 ASL RO oioesie te FOR INDEXING 
014274 016000 014314 MOV STRPAD(RO),RO  ;; INDEX TO TABLE 
014300 000200 RTS x0 3:60 TO ROUTINE 


33THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


014302 011646 $TRAP2: MOV (SP) ,-(SP) 3:sMOVE THE PC DOWN 
014304 016666 000004 000002 MOV 4(SP),2(SP) 2sMOVE THE PSW DOWN 
014312 000002 RTI 3sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


DOOR ARARARARRARRRR AAA AAR AAA AAAS AAAAAARABAAOA 
Ok a ot td = WWW WWW IW WWWNANWN AW NW 2 9 9 9 9 9 OO OS SO OS 


00000 HAL 
014346 005015 045514 042526’ CLKMES: .ASCIZ <15><122/LKVEC INTERRUPT = DISCONNECT LTC / 
014354 020103 047111 042524 


: ROUT INE 
014314 014302 $TRPAD: .WORD $TRAP2 
014316 011622 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
014320 014056 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
014322 014032 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO “CADING ZEROS) 
014324 014072 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (43 PER LAST CALL) 
014326 013606 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
014330 012154 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SCTTING 
014332 012104 SCKSWR 3; CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T=SwWR 
014334 012366 $RDOCHR ;;CALL=RDCHR ered os ved 1 TTY TYPEIN CHARACTER ROUTINE 
014336 012506 $RDLIN ;;CALL=RDLIN 1(104411) TTY TYPEIN STRING ROUTINE 
10 FOLLOWING CALL WAS ADDED TO INIT kee SPECIFIC VECVORS. 
10 014340 POINT=. SAVE POINTER 

( 000100 -=100 

( 000100 074340 SCLKVEC sLKVEC HANDLER 

( 000102 000300 ; 300 ; INTERRUPT HANDLER PRI 

( 000140 | 2=140 ;BRKVEC 

( 000140 170000 : 170000 :O0DT START ADDRESS 

( 000142 000300 — 300 zPR Y 

( 014340 .=POINT RESTORE POINTER 

: 014340 104401 014346 SCLKVEC: TYPE ,CLKMES 

( 

( 


r 
t 


| B 
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CNDVCA.PI 11 y= Dec “82 11:36 RAP ‘ABLE SEQ 0105 
(1) 014362 0511 0501 020124 
(1) §14375 02 0200 go O3be 041523 

C1) 014376) «—0471 aE 4 049516 052103 
(1) 014404 046040 041524 000040 

10957 00000" ~END 
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175610 


BAUD = 007400 
BITMAS 011102 


79694 
8971 
8971 
8971 
10853* 
8971 


C 
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CROSS REFERENCE TABLE == USER SYMBOLS 
8971 


10858* 10864* 10877 108824 


8971 


10872* 108874 
10939. 
9647 9862 9979 10869 10933 


9458 
109394 
109394 


8971 
8971 


10842 10851* 10857* 10861 10862 108804 


109394 10942 


SEQ 0106 
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BITO = 000001 88484 10567 10578 

BITOO = 000001 88484 8883 8903 8924 8945 

BIT01 = 000002 88484 8902 8944 

BITO2 = 000004 88484 8901 8922 8943 

BITO3 = 000010 88484 8900 8942 

BIT04 = 000020 88484 8899 8941 

BITOS = 000040 88484 8898 8940 

BIT06 = 000100 88484 8877 8897 8918 8939 

BITO7 = 000200 88484 8876 8896 8917 8938 

BITOB = 000400 88484 10945 

'BITO9 = 001000 8484 10942 10945 

BIT1 = 000002 88484 10571 10581 

'BIT10 = 002000 88484 10942 

'BIT11 = 004000 88484 8872 8912 10945 

‘BIT12 = 01 88484 8891 891 

BIT13 = 020000 88484 8890 8910 10942 

BIT14 = 040000 88484 8889 8909 10945 

‘BIT15 = 100000 88484 8888 8908 9001 10862 

'BIT2 = 000004 88484 9905 9919 

‘BIT3 = 000010 484 10192 10225 

iBIT4 = 000020 88484 10200 10228 

BITS = 000040 484 

BIT6 = 000100 88484 

BIT? = 000200 88484 

BIT8 = 000400 88484 

BIT9 = 001000 88484 

BPTVEC= 000014 88484 

BREAK = 000001 89244 9091 9099 $101 9110 9112 9121 9124 10555 
BRK = 010000 89604 9084 10544 

BRKVEC= 000140 88484 

CKSWR = 104407 10942 10945 109544 

CLKMES 014346 109564 

CLR = 000000 88624 9% 9466 9654 10664 

COMSPD= 000100 89544 10247 

CONADR 011114 10864 10885¢ 

CONSOL 011121 Rites 93 9458 9542 9593 9644 9738 10081 10161 10343 10547 10840* 10863 
CONVEC 011116 10865 108864 

CR = 000015 88484 10933 

CRLF = 000200 88484 8987 8995 8996 8997 10596 10904 10933 
CYCLE 010662 03 10820 

DATA = 000017 89514 10733 

DATLNG 010472 10181 10275 10352 107104 

DDISP = 177570 88484 8971 8986 

DISPLA 001142 89714 8986* 10942* 10945 

DISPRE 000174 89654 8986 

DLADD 001254 8973@ 9006* 9009 9011 9012 9013 9014 9015 9038 9055 10597 10912 
DLADDR= 175610 88584 897 8975 8976 8977 8978 8979 

DLVEC 001256 89744 9008 9988 10087 10143 10377 10599 10914 
DSWR = 177570 88484 8971 8986 

EMTVEC= 000030 884 8986 

ERRBIT= 100000 896 9738 10569 
ERRCHK 010166 Bs: bs 9905* 9919 10165* 10192* 10200* 10225 10228 10551* 10567* 10571* 10578 10581 
'ERRCNT 007556 10387* 10407 10411 10420# 10498  10504¢ 

ERROR = 100000 88884 9781 9827 

| 

| 


a 


--—- 
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ERRORF 004026 9465" 94696* 9509 95224 
ERRVEC= 000004 88484 8986* 10945* 
EVENOD= 000040 895 34 
EXITFL 004030 9466* 9513 9516 9518 9523 
FALSE = 000000 106524 10656 10839 10840 
FLAG 010464 10656* 10672* 10675 10687 106944 
FRERR = 020000 8890" 10570 
GNS = teeeee YJ 18362 8987 8995 8996 8997 10596 10598 10600 10904 10906 10909 10911 10913 
GTSWR = 8987 109544 
HOLD 007622 10450* 10 104614 
HOLDSC 010465 10664* 10666* 10670 106954 
HOWLON= 000000 106224 10655 
HT = 000011 88484 10933 
001272 B980# 9041* 9054* 9055 9056 10735* 
“ILLMEM= 000004 88494 9040 9057 
‘INITFL 011104 9000* 10843 10844* 108814 
INTFLA 010660 9045* 9049  9985* 10018 10020 10033* 10048 10090* 10120 10124 10813* 10815# 
INTSRV 010652 9040 9992 10087 107964 
\loTvec= 000020 88484  8986* 
F = 000012 88484 10933 
LKVEC = 884 
OOP 002136 90024 10604 
MAINT = 89224 915 9160 9162 9171 9173 9182 9185 9380 9393 9547 9563 9598 
960 965 9672 9689 9701 9715 9745 9771 +9785 9801 9819 9830 9869 
9918 10092 10123 10141 10167 10217 10224 10252 10397 10409 10553 
MAINTJ= 040000 89624 9145 9542 9593 9644 9741 9858 10081 10161 10343 10544 
MASK = 000000 10710# 10732* 10736* 1C0737* 10739* 
MAX 6 9667 97204 
MYTYPE 011126 108984 10942 
564 9880: 9881* 9888 9889 9894 9898 9909 9910 995% 
NOCONM 011122 108894 
NUMBER 007560 10407 10421# 10454 10508 
NUMBR 010566 10733* 10735 107414 
ODTST = 170000 88484 
011112 108844 
D 005650 9867* 9868 9894 9898 9909 9910*  9952# 
ORERR = 040000 88894 9768 9797 9816 
PARITY= 000020 89528 
PASS 004024 9462* 9510 95214 
PBAUDS= 004000 8912" 
PBAUDO= 010000 89114 
PBAUD1= 020000 8910" 
PBAUD2= 040000 89094 
PBAUD3= 100000 89084 
PBR = 000200 8955% 9858 
PERR = 010000 88914 
/PIRQ = 177772 88484 
PIRQVE= 000240 88484 
POINT = 014340 10956 
/PRO = 000000 88484 10005 10041 10101 10175 10269 10371 
'PR1 = 000040 884 
/PR2 = 000100 88484 
'PR3 = 000140 8484 
PRA = =_-:000200 88484 
PRS = 000240 88484 


FX, 
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PR6 == 000300 88484 8986 9040 9207 9992 10087 10380 10384 10930 
PR? = 000340 88484 
PS = 177776 88484 
PSw = 177776 88484 
PWRVEC= 000024 88484  8986* 10930* 
RATES 005624 9874 9915 9925# 
RBUF 001262 18376" 9012" 9621 9710 97659797 9816 9827987210118 10182 10203 10276 
RCSR 001260 8975# 9011" 9279 9287 9289 9298 9300 9309* 9312 9343 (9390 9557 9574 
9608 (9623 9662 9682 9684 9685 9698 9712 9883 1009%4* 10112 10114* 10137* 
10198 10262* 10293 10318* 10402* 10417* 10510* 10559 
RCVRAC= 004000 88724 9390 9662 9682 
RCVRDO= 000200 18826" 9345 9557-9574 960896239684 9698-9712 98B_ «1011210198 10293 
RCVRIE= 000100 18877" 9279 9287 9289 9298-9300 93099312 10094 10114 10137 10402 10417 
RDATAO= 000001 890 
RDATAI= 000002 89028 
RDATA2= 89014 
/RDATA3= 000010 89008 
RDATAG= 000020 8899" 
/RDATAS= 000040 88984 
RDATAS= 000100 88978 
RDATA7= 000200 8896# 
RDCHR = 104410 10936 10954# 
-RDLIN = 104411 10954 
RDRRUN= 000001 88834 
REC 007626 10379. 10477" 
REG = 10622" 10654 
REGSAV 010460 10654* 10663 106924 
RESVEC= 000010 88484 
RHLD 007716 10493* 10496 10500 10518# 
ROOSO 005624 9934" 
ROO70 005625 99354 
RO110 005626 9936" 
RO133 005607 99378 
RO200 005633 99418 
RO300 005631 9939" 
ROG00 005632 99408 
R10000 005643 99498 
R1800 005634 99428 
000 005635 9 
R2400 005636 99448 
R3600 005637 99454 
800 005640 994 
RSSTAC 001334 89824 9016 
7200 005641 9947 
R 005642 994 
$B 007562 104224 10500¢ 
‘SET = 177777 8861# 9477 9496 9503 9509 9513 9516 9518 9557 9608 9663 667 9995 
10112 10190 10198 10284 10293 10559 10666 
“SETCLR= 000006 10622" 10670 
| 


88 8986 
8965 89864 10930 
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91 9374 945 
10675 10687 10863 10872 


CNDVCA.F11 27-DEC=-82 11:3 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0110 
STKLMT= 177774 88484 
SwR 001140 89714 8986+ 8987 10930* 10936* 10942 10945 
SWREG 000176 89654 8986 8987 10936 
SwO = 000001 88484 
SwOO = 000001 884 
SwO1 = 000002 88484 
SwO2 = 000004 88484 
SwO3 = 000010 88484 
$w04 = 000020 88484 
swoS = 0 88484 
Sw06 = 000100 88484 
SwO7 = 000200 8484 
Swo8 = 000400 88484 
SwOo9 = 001000 88484 
Swi = 2 88484 | 
Sw10 = 002000 88484 | 
SWwi1 = 000 88484 
Swi2 = 010000 88484 
Sw13 = 020000 8484 | 
SWw14 = 040000 88484 
Sw15 = 100000 88484 
Sw2 = 88484 
$w3 = 000010 88484 
SwW4 == 000020 88484 
Sw5 = 0 88484 
SW6 = 000100 88484 
SwW7 = 000200 88484 
'Sw8 = 000400 88484 
Sw9 = 001000 88484 
TBITVE= 000014 88484 
, TBUF 001270 oRoore weeise eithe 9490* 9552 9604* 9660* 9755 9760* 9812  9878* 10108* 10196* 
* * we 
'TCSR 001264 89774 9013* 9091 9099* 9101 9110* 9112 9121* 9124 915 9160* 9162 9171* 
9173 9182* 9185 9220 9228* 9230 9239* 9241 9250* 925 9393* 9426 9477 
9494 9503 9547* 9563* 9598 9609% 9653 9672 9689% 9701* 9715* 9745" 9771 
9785* 9801* 9819 9830* 9869* 9918+ 9995 9998* 10012* 10035* 10092* 10123* 10141* 
10167* 10190 10217* 10224* 10252* 10284 10397* 10400* 10409* 10416* 10456* 10553* 10555* 
TCSRHI 001266 89784 9014 9874* 9915* 
| TDATAO= 000001 89454 
TDATA1= 000002 89444 
TDATA2= 000004 89434 
TDATA3= 000010 89424 
TDATA4= 000020 89414 
TDATAS= 000040 89404 
TDATA6= 000100 89394 
TDATA7= 000200 89384 
= 10755# 10772 
TIMER 010314 9477 9503 9557 9608 9995 10112 10190 16198 10284 10293 10559 106224 
| TIMSAV 010462 10655* 10675 10680* 106934 
TKVEC = 000060 88484 
TPVEC = 000064 88484 
TRAN 007564 10383 104364 
TRAPVE= 000034 88484 8986+ 
| TRTIVEC= 000014 88484 
TRUE = 000001 45 8 9542 9593 9644 9738 10081 10161 10343 10547 106514 10672 
| 


MAINDEC=11=CNDVC=A 
CNDVCA.P11 27=DEC=82 11:3 
TST1 002252 90334 
TSTI0 003476 9383 
TST11 003536 94528 
TST12 004032 9459 
TST13 094204 9543 
TST14 004352 9594 
TST15 04674 9645 
TST16 005260 9739 
TST17 005654 9859 
TST2 002420 90784 
TST20 00617 9980 
(T$T21 0650 10082 
TST22 007024 10162 
TSi23 = 007326 10249 
TST24 007722 10344 
TST25 010170 10545 
‘TST3 = 002612 9085 
TST4 03004 9146 
/TSTS 003160 92718 
'TST6 =—s- 003322 93334 
'TST7 003362 93654 
i TYPDS = 104405 10601 
'TYPE = 104401 8987 
10915 
TYPOC = 104402 0597 
| TYPON = 104404 10954# 
TYPOS = 104403 0908 
VECTOR 01111 10854 
WAIT 01057 9757 
WAS 00756 104234 
WHICHB= 00 106228 
WRAP = 020000 89614 
XMITIE= 0001 89184 
10456 
XMITRD= 0002 89174 
2 007624 10459 
2222 00772 10516 
$APTHD 001 8970# 
SASTAT= seeeee UY 10939 
SATYC 012704 109394 
$ATY1 012660 109394 
SATY3 012666 933 
SATY4 012676 109394 
$AUTOB 001134 9714 
$BASE 001250 89714 
$BDADR 001122 89714 
$BDDAT 001126 89714 
$BELL 001164 89714 
GNLE= 177777 29628 
$CHARC 012100 1093 
S$CKSWR 012104 109364 
SCLKVE 014340 109564 
SCMTAG 001100 89714 
$CM3 8971 
SCNTLG 012631 109364 
| SCNTLU 012624 109364 


MACY11 30(1046) 
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10859* 
9762 


10942 


10954 
8986 


27=DEC=82 


9 
11:37 PAGE 196-5 


CROSS REFERENCE TABLE == USER SYMBOLS 


95364 


9674 
9775 
9923 


10936 


1 
1 


9692 
9790 
99718 


0311 
05954 


9230 
9494 


9703 9719 97324 

9804 9824 98504 

10337# 

10596 10598 10600 10603 10904 10906 10909 10911 
10936 10942 10948 10951 109544 10956 

10912 10914 10936 10954# 

10047 10116 10679 107554 

9239 9241 9250 9253 9998 10012 10035 10400 
9503 9995 10190 10284 


SEQ 0111 


10913 


10416 
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CNDVCA.P1i | 27=DEC=82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0112 
SCPUOP 001222 89714 
SCRLF 001171 8971# 10603 10915 10933 10936 10942 
$DBLK 014022 109484 
SDEVCT 001204 89714 10852* 10878« 
SDEVM 001252 9714 8994 10861 
SDOAGN 011414 109274 
SOTBL 014012 109484 
SENDAD 011404 8968 8987 10927" 10942 
SENDCT 011352 8986 109278 
NDMG 011423 109274 
SENULL 011420 109274 
NV. 001214 9718 8987 4 9% 9647 9862 9979 10869 10933 10939 10942 
SENVM 001215 B71# 8986 10933 10939 
SEOP 011316 10846 109278 
SEOPCT 011344 8986" 109274 
SERFLG 001103 8971# 10942% 10945* 
SERMAX 001115 89714 8986* 10945« 
SERRFL= 000000 90014 900 064 90084 9009 90114 9012" 90138 90144 9015# 90 
“Ww 9 9045¢ 9054# 9055# 9057# 9085# 9089# 90984 9099" 9108# 91104 
9121@ 9146" 91508 91598 91604 91694 91714 91804 91824 92274 92284 
92374 9239" 9248 9250# 92778 92 92878 92968 93074 93098 93424 93838 
93884 93938 94244 9459" 9462% 94654 94664 94734 94778 94964 9503# 95134 
95164 95438 95478 95498 95528 95578 95634 9569% 95948 95984 95994 96 084 
0 96454 96548 96554 9660" 966 6654 26 (9674 94 
96924 97018 97034 97108 97158 97398 97428 97458 97498 97558 97578 97604 97624 
97654 97718 97758 97808 9785# 9 97944 98018 98044 98084 98124 98144 98198 
98244 98308 98598 98634 9 9867# 9868 98694 98718 98724 98748 9876" 98784 
98814 98854 98884 98RIH 99058 99094 99T0# 99134 99T4e 9913H 99184 99808 
99854 998 99924 99938 # 99984 10012# 10015# 100314 100334 10035# 10047# 
10055# 10087# 100894 10090# 10092 10094# 10108# 10112# 10114# 10116# 101184 101238 10137# 
10141# 10143 101444 101624 10165# 10167# 101814 10182# 10185# 10190# 10192 10196# 10198 
0200# 10203# 10210 102114 10217# 102198 102244 10249 102524 102624 10275# 10276# 10278 
102844 102874 102914 102934 10297# 10301# 10304 10305# 103114 103184 103444 10352# 10377# 
103794 10380# 103834 103844 103878 103898 103914 103938 103974 104004 10402# 10409# 104168 
10417# 104484 10450# 104524 104568 104898 104914 10493# 10500# 105014 10504# 10510# 105454 
105484 105514 10553# 10555# 10557# 10559# 10567# 10571 10654# 106554 10656# 10664# 1 
106724 10679# 10680" 106884 10690 10732# 10733# 107354 107364 10737# 107394 10772# 107738 
10774# 108134 10839# 108460# 108448 10846#@ 10849 10851# 10852# 10853# 10854# 10856# 10857# 
108584 10859" 108634 108644 10865 108724 108774 10878# 
SERROR 013126 898. 109424 
SERRPC 001116 89714 10910 10942« 
“SERRTB 001254 89714 
'$ERTTL 001112 89714 10601 10602" 10942« 
|SESCAP 001162 89714 8986* 10942 10945« 
SET 001214 89714 
'$ETEND 001254 970 89714 
SFATAL 001176 971# 10907* 10908  10939* 
SFFLG 013124 10939# 
SFILLC 001156 9714 10933 
SFILLS 001155 89714 10933 
$FSAND= 000310 24 899% 9 908 90 9101 9112 91249145152 91629173185 
9220 9230 9261 9253 9279 9289 9300 931 9343 9374 937 9380 9390 
9426 9458 +«4«9494~=Ss«9S09S's«9S10'—«é9842—s«é574i«iSS«H2B.(HOK (G47) (SE2 «KKB 
9682 BA 9685 9698 9712 9738 9741 9768 9781 9797 9816 9827 9858 
9862 9882 9883 9894 9898 9919 9979 10018 10020 10048 10081 10120 10124 
10161 10214 10225 10228 10247 10308 10343 10411 10454 10496 10498 10508 10544 
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CNDVCA.P11 27-DEC-82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0113 
HF 10565 10569 10570 10578 10581 10663 10670 10687 10842 10843 10862 10869 
SFSBAD= 000401 79628 8994 9049 9084 9091 9101 9112 9124 9145 9152 9162 9173 9185 


9 797 
2 83 94 98 9 10018 10020 10048 10081 10120 10124 
10161 10214 1022 10228 1024 1030 10343 «10417 = 10454 «= 10496 )3= : 10498 §=610508 = 10544 
HF 10565 10569 10570 10578 10581 10663 10670 10687 2 10843 10862 10869 
SFSBLA= 000170 79628 
SFSCAS= 000150 79628 
SFSDEC= 000220 79628 
$F$GOO= 000400 79624 868 9049 9084 9091 9101 9112 9124 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 9312 9343 9374 9377 9380 9390 
9426 9458 9480 9494 9504 9509 9510 9542 9560 9574 9593 9611 9623 
9644 9647 9662 9668 9682 9684 9685 9698 9712 9738 9741 9768 9781 
9797 9816 9827 9858 9862 9882 9883 9894 9898 9919 9979 10018 10020 
0048 10081 10120 10124 10161 10191 10199 10214 10225 10228 10247 10285 10294 
10308 10343 10411 10454 10496 10498 10508 10544 10547 10560 10565 10569 10570 
10578 10581 10663 10670 10687 0842 10843 10862 10869 10870 
SFSIF = 000110 79624 9949 9052 9084 9091 9094 9101 9104 9112 9115 9124 9127 
9145 9147 9152 9155 9162 9165 9173 9176 9185 9188 9220 9223 9230 
oere 9241 9244 9253 9256 9279 9282 9289 9292 9300 9303 9312 9315 


9623 6 9644 9646 9647 964 9866 3968 9666 966 9675 9685 
9693 9694 9698 9704 9712 9717 9 9740 9741 974 9768 9776 9781 
9791 9797 9805 9816 9825 9827 9833 9858 9860 9862 9864 9883 9 
9890 9894 9896 9898 9906 9907 9919 9922 79 9981 10018 10020 
10023. 10027 10028 10048 10051 10081 10083 10120 10124 10128 10131 10132 10161 
10163 =10191 §=10193 10199 10201 10214 10220 10225 10227 10228 10230 10247 10250 
10285 10288 10294 10298 10308 10312 10343 10345 10411 10414 10454 10457 10496 
10498 10502 10505 10508 10514 10544 10546 10547 10549 10560 10563 10565 10568 
10569 10570 10572 10573 10574 10578 10580 10581 10583 10663 10665 10667 0670 
Hs 5 10689 10842 10843 10845 10850 10855 10860 10862 10869 10870 10873 
| SFSINC= 000210 79624 9871 9912 10185 10221 10278 10314 10735 10738 10773 10774 10775 10776 
$FSLOO= 000200 79624 9463 9518 9519 10661 10675 10681 
| SFSNAM= 000160 79628 
‘SFSNO = 000403 79624 8994 9049 9084 9091 9101 9112 9124 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 9312 9343 9377 9380 9390 9426 
9458 9494 9509 9510 9542 9574 9595 9623 9644 9647 9662 9668 9682 
9684 9685 9698 9712 9738 9741 9768 9781 9797 9816 9827 9858 9882 
9883 9894 9898 9919 9979 10018 10020 10048 10081 10120 10124 10161 10214 
10225 10228 10247 10308 10343 10411 10454 10496 10498 10508 10544 10569 10570 
10578 10581 63 10842 108435 10862 10869 106870 
$FSOR = 000320 79624 8994 9049 9084 9101 9112 9124 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 ga08 9343 9374 9377 9380 9390 
9426 9458 9494 9509 9510 9542 9574 959 9623 9644 9647 ty] 9668 
9682 9684 9685 9698 9712 9738 9741 9768 9781 9797 9816 a5 9858 
9862 9882 9883 9894 989 9919 9979 10018 10020 10048 10081 10120 10124 
10161 10214 10225 10228 10247 10308 10343 10417 10454 10496 10498 10508 10544 
F544 10565 10569 10570 10578 10581 10663 10670 10687 10842 102843 0862 10869 


foc 
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CNDVCA.P11  27=DEC=82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0114 
SESRTN= 000300 7962" 10622 10697 10710 10742 10755 10786 10820 10892 10898 10920 
SFSUNT= 000130 79624 9042 9056 9661 9667 10406 10407 10841 10861 
$FSWHI= 000120 79608 8994 8999 9084 9145 9458 9542 9593 9644 9682 9695 9738 9858 
9882 9892 9898 10081 10161 10247 10343 10544 
SFSYES= 000402 7962" 8994 9049 9084 9091 9101 9112 91246 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 9312 9343 9374 9377 9380 9390 
9426 9458 9494 9509 9510 9542 9574 9593 9623 9644 9647 966 8 
9682 9684 9685 9698 9712 9738 9741 9768 9781 (9797 9816 9827 ~ 9858 
98 9898 9919 (9979 10018 10020 10048 10081 10120 10124 
10161 10214 10225 10228 10247 10308 10343 10411 10454 10496 10498 10508 10544 
10547 10565 10569 10570 10578 10581 10663 10670 10687 10842 10843 10862 10869 
$GDADR 001120 89714 
$GDDAT 001124 89714 
$GET42 011374 109274 
$GTSWR 012154 10936# 10954 
$HD = 000000 8845 
‘$HIBTS 001000 89708 
‘$SICNT 001104 971# 10945 
‘$IFLEV= 177777 9624 9049% 9052" 9084" 9086" 90918 9094 91014 91044 91128 91158 9124" 91274 
| 91458 9147% 91528 91558 91628 9165# 91738 91764 9185 91884 92208 92234 92304 


95654 9574" 95778" 95938 95958 96114 96148 96238 96264 96448 96474 

9649" 96624 96684 96758 96848 96858 9693" 96948 96 97048 97128 97178 
97384 740K O74ie = 745K 976RH  O77GH VBI «97914 = 9797H ©9805 «OB IGH 98254 698278 
98338 98584 9860# 9862# 98648 98834 9890# 98948 98984 # 99198 99228 
99794 99818 10018# 10020# 10027# 100284 100484 100514 100814 100834 10120# 10124# 101314 
101324 101614 10163# 10191# 10193# 10199# 10201# 10214# 10220# 10225# 10227# 10228# 10230# 
102474 10250# 10285# 102884 102948 10298# 10308# 10312# 103434 10345# 10411# 10414# 10454# 

| 104574 104964 104984 10502 10505# 10508# 10514# 10544# 10546# 105474 10549% 10560# 105634 

| 105654 105694 10570# 10572 10573# 105748 10578# 10580# 105814 105834 106634 10667# 10670# 

| 106734 106874 106894 10842# 10843# 10850# 10860# 10862# 10869# 10870" 108734 10874# 10875# 

|SILLUP 011604 109308 

SINTAG 001135 89718 10936 

|$1SkO = 000001 9049# 9052 9084" 9086 90918 909% 9101 9104 9112 9115. 9124# 9127 9145 

9147 9152 9155 9162" 9165 91734 9176 91854 9188  9220# 9223 92308 9233 

| 92418 9253" 9256 9279" 9282 92898 9292 9300# 9303 93128 9315 93430 

9374" 9386 9390" 9402 9426 9433 9458# 9460 9480" 9483 # 9508 

| 9509" 95424 9544 9560" 9565 95744 9577 9593" 9595 96118 9614 96234 
9626 9644" 9646 96478 9649 9662% 9666 96684 9675 96848 9694 9698" 9704 
9712" 9717 9738 «9740 «= «9741 «= «9743 «97684 «69776 = 9781# «9791S «9797# = 9805 «9B 168 
9825. 98278 9833 9858# 9860 9862# 9864 98834 9890  9894# 9907 992 
2970" 9981 10018# 10028 10048# 10031 10081# 10085 10120" 10132 101618 10191# 

| 10193, 10199" 10201 10214# 10220 10225# 10227 10228# 10230 10247# 10250 102854 102 

| 10294# 10298 10308 10312 10343# 10345 10411# 10414 10454# 10457 10496# 10505 105084 
10514 10544# 10546 10547# 10549 10560# 10563 10565# 10574 10578# 10580 10581# 10583 

| 10663# 10667  10670# 10673  10687# 10689 10842" 10860 10862" 10875 

$1SK1 = 000001 93774 93 9504" 9507 95108 9514 9685# 9693 9898# 9906 10020# 10027 10124# 

| 10131 10498" 10502 10569# 10573 10843# 10850  10869# 10874 

| $1Sk2 = 000001 9380# 9384 10570 10572 108708 10873 

‘Site 001114 89718 10907 10942 

'$LF 001172 89718 10933 10936 10942 

ISLFLG 013123 10939a« 
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SLOCTA= 177777 7962# 8994 8999 9042 9049 9052 9056 9084 9086 9091 9094 9101 9104 
9112 9115 9124 9127 9145 9147 9152 9155 9162 9165 9173 9176 9185 
9188 9220 9223 9230 9233 9241 9244 3833 9256 9279 9282 9289 9292 
9300 9303 9312 9315 9343 9350 9374 9376 9377 9379 9380 9382 9384 
9385 9386 9390 9402 9426 9433 9458 9460 9463 9480 9483 9494 94 
9504 9507 9508 9509 9510 9514 9515 9517 9518 9519 9542 9544 9560 
9565 9574 9577 9593 9595 9611 9614 9623 9626 9644 9646 9647 9649 
9661 9662 9664 9666 9667 9668 9675 9682 9684 9685 9693 9694 9695 
9698 9704 9712 9717 9738 9740 9741 9743 9768 9776 9781 9791 9797 
9805 9816 9825 9827 9833 9858 9860 9862 9864 9871 9882 9883 9886 
9890 9892 9894 9896 9898 9900 9906 990 9912 9919 9922 9979 9981 
10018 + 10020 10023 10027 10028 10048 10051 10081 10083 10120 10124 10128 10131 
10132 =6©10161 §=10163 10185 10191 10193 10199 10201 10214 10220 10221 10225 10227 
10228 10230 10247 10250 10278 10285 10288 10294 10298 10308 10312 10314 10343 
10345 10406 10407 10411 10414 10454 10457 10496 10498 10502 10505 10508 10514 
10544 10546 10547 10549 10560 10563 10565 10568 10569 10570 10572 10573 10574 
10578 10580 10581 10583 10622 10661 10663 10665 10667 10670 10673 10675 10681 
10687 10688 10689 10690 10697 10710 107355 10738 10740 10742 10755 10773 10774 

10775. =10776)3=—s:110786)3=—s «10820 Ss 10841 3=s 10842) «10843 = 10845 = 10850) §=—10855 =: 10860 )3=s:« 10861 =: 10862 

10869 10870 10873 10874 10875 10879 10892 10898 10920 

/SLPADR 001106 89714 8986* 10945* 

| SLPERR 001110 89714 8986* 9043* 9089* 9098* 9108* 9119* 9150* 9159% 9169* 9180*  9218*  9227% 


9237* 9248* 9277* 9286* 9296 9307*  9342* Bs 9424* 9549% 9569* 9599 9749+ 
SLSTCN= 177777 79628 79654 8994 8999 9042 9049 9052 9056 9084 9086 9091 9094 9101 
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9698 9704 9712 9717 9738 9740 9741 9743 9768 9776 9781 9791 9797 
9805 9816 9825 9827 9833 9858 9860 9862 9864 9871 9882 9883 886 
989 989 9894 9896 9898 9900 9906 9907 9912 9919 9922 9979 81 
10018 10020 10023 10027 10028 10048 10051 10081 10083 10120 10124 10128 10131 
10132 »=6.10167 Ss 10163) Ss 10185) Ss -« 10191) 10193 )=— 10199): 10201)3=—s 110214 39 10220 Ss 10221 39s: 10225 Ss: 10227 
10228 = 10230 10247 10250 10278 10285 10288 10294 10298 103508 10312 10314 10343 
10345 10406 10407 10411 10414 10454 10457 10496 10498 10502 10505 10508 10514 
10544 1054 10547 10549 10560 10563 10565 10568 10569 10570 10572 10573 10574 
10578 10580 10581 10583 10622 10661 10663 10665 10667 10670 10675 10681 10687 
10689 10697 10710 10735 10738 10742 10755 10773 10774 10775 10776 10786 10820 
10841 10842 10843 10845 10850 10855 10860 10861 10862 10869 10870 10873 10874 
10875 10892 10898 10920 
$LSTIN= 000000 79624 7963 8994 8999 9000 9001 9003 9006 9008 9009 9011 9012 13 
9014 9015 9016 9038 9040 9041 9043 9045 9049 9054 9055 9056 ©9057 
9084 9085 9089 9091 9098 9099 9101 9108 9110 9112 9119 9121 9124 
9145 9146 9150 9152 9159 9160 9162 $169 9171 9173 9180 9182 9185 
9218 9220 9227 9228 9230 9237 9239 9241 9248 9250 9253 9277 9279 
9286 9287 9289 9296 9298 9300 9307 9309 9312 9342 9343 9374 9376 
9377 9379 9380 9382 9383 9388 9390 9393 9424 9426 9458 9459 9462 
9465 946 9473 9477 9480 9490 9494 9496 9499 9503 9504 9509 9510 
9513 951 9516 9518 9519 9542 9543 9547 9549 9552 9557 9560 9563 
9569 9574 9593 9594 9598 9599 9604 9608 9609 9611 9621 9623 9644 
9645 9647 9648 9653 9654 9655 9660 9662 9663 9664 9665 9667 9668 
72 9674 9682 9684 9685 9689 9692 9695 9698 9701 9703 9710 9712 





m9 

MAINDEC=11-CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 196-10 

CNDVCA.P11 §— 27=DEC=82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0116 
9715 9738 9739 9741 9742 9745 9749 9755 9757 9760 9762 9765 9768 
9771 9775 9780 9781 9785 9790 97946 9797 9801 98046 9808 9812 9814 
9816 9819 9824 9827 9830 9858 9859 9862 9863 9866 9867 9868 9869 
9871 9872 98746 9876 9878 9880 9881 9882 9883 9885 9886 9888 9889 
9892 9894 9896 9892 9900 9905 9909 9910 9912 9913 9914 9915 9918 
9919 9979 9980 9985 9988 9990 (9992 9993 9995 (9998 10012 10015 10018 
10020 10023 10031 10033 10035 10047 10048 10055 10081 10087 10089 10090 10092 
10094 10108 10112 10114 10116 10118 10120 10123 10124 10128 10137 10141 10143 
10144 10161 10162 10165 10167 10181 10182 10185 10190 10191 10192 10196 10198 

i 10199 10200 10203 10210 10211 10214 10217 10219 10221 10224 10225 10228 10247 
10249 10252 10262 10275 10276 10278 10284 10285 10287 10291 10293 10294 10297 
10301 10304 10305 10308 10311 10314 10318 10343 10344 10352 10377 10379 10380 
10383 10384 10387 10389 10391 10393 10397 10400 10402 10407 10409 10411 10416 
10417 10448 10450 10452 10454 10456 10489 10491 10493 10496 10498 10500 10501 

| 10504 10508 10510 10544 10545 10547 10548 10551 10553 10555 10557 10559 10560 

| 10565 10567 10568 10569 10570 10571 10578 10581 10654 10655 10656 10663 10 

10665 10666 10670 10672 10673 10679 106R 10681 10687 10688 10690 10697 10732 

10733 10735 10736 10737 + ©10738 +10739 «107460 (10742 10772 + «+10773 «(10774 «10775 +=«10776 

10786 10813 10839 10840 10842 10843 10844 10845 10846 10849 10851 10852 10853 
10854 10855 10856 10857 10858 10859 10861 10862 10863 10864 10865 10869 10870 
10872. 10877 10878 10879 10892 10920 

$LSTST= 177777 79624 79664 8994 8999 9042 9049 9052 9056 9084 9086 9091 909% 9101 
9104 9112 9115 91246 9127 9145 9147 9152 9155 9162 9165 9173 9176 
9185 9188 9220 9223 9230 9233 9241 9244 9253 9256 9279 9282 9289 
9292 9300 9303 9312 9315 9343 9350 9374 9376 9377 9379 9380 9382 
9384 9385 9386 9390 9402 9426 9433 9458 9460 9463 9480 9483 9494 

| 9499 9504 9507 9508-9509 95109514 95139817, 9518 «9519 9542 9544 

9695 9698 9704 9712 9717 9738 9740 9741 9743 9768 9776 9781 9791 
9797 9805 9816 9825 9827 9833 9858 9860 9862 9864 9871 9882 9883 
9886 9890 9892 9894 9896 9898 9900 9906 9907 9912 19 22 79 
9981 10018 10020 10023 10027 10028 10048 10051 10081 10083 10120 10124 10128 
10131 10132 10161 «= 10163.-S« 10185 = 10191-10193» 10199 10201: 10214«« 10220 «10221: 10225 
10227 10228 10230 10247 10250 10278 10285 10288 10294 10298 10308 10312 10314 
10343 10345 10406 10407 10411 10414 10454 10457 10496 10498 10502 10505 10508 
10514 10544 10546 10547 10549 10560 10563 10565 10568 10569 10570 10572 10573 
10574 10578 10580 10581 10583 10622 10661 10663 10665 10667 10670 73 10675 
10681 10687 10689 10697 10710 10735 10738 10742 10755 10773 10774 10775 + 10776 
10786 10820 10841 10842 10843 10845 10850 10855 10860 10861 10862 9 10870 
10873. 10874 10875 10892 10898 10920 

$LSTTA= 00000C 79624 79644 899% 8999 9042 9052 9084 9086 9094 91046 9115 9127 9145 
9147 9155 9165 9176 9188 9223 9233 9244 9256 9282 9292 9303 9315 
9350 9376 9379 9382 9384 9385 9386 9402 9433 9458 9460 9463 9483 
9499 9507 9508 9514 9515 9517 9519 9542 9544 9565 9577 9593 9595 
9614 9626 9644 9646 9649 9661 9664 9666 9667 9675 9682 93 
9695 9704 9717 9738 9740 9743 9776 9791 9805 9825 9833 9858 9860 
9864 9871 9882 9886 9890 9892 9896 (9900 9906 9907 9912 22 
10023 10027 10028 10051 10081 10083 10128 10131 10132 10161 10163 10185 10193 

10201 10220 10221 10227 10230 10247 10250 10278 10288 10298 10312 10314 

| 10345 10406 10407 10414 10457 10502 10505 10514 10544 10546 10549 10563 10568 
10572 10573 + 10574 + 10580 10583 10622 10661 10665 10667 10673 10681 10689 
10710 10735 10738 10742 10755 10773 (10774 10775 10776 10786 10820 10847 10845 
10850 10855 10860 10873 10874 10875 10892 10898 10920 

$MADR1 001226 89714 

|$MADR2 001232 89714 





N 9 
MAINDEC=11=CNDVC=A wut 30(1046) 27=DEC-82 11:37 PAGE 196-11 





‘CNDVCA.P11 —-27=DEC~82 11: CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0117 
SMADR3 001236 89714 

SMADR4 001242 89718 

SMAIL 001174 8970 89714 8986 8987 9033 9078 9139 9201 (9271 (9333 (9365 9415 9452 
| 12338 9587 «96599752 = 98509971 10076 10136 10e42 10337 1053910933 10942 
'SMAMS1 001224 89714 

'SMAMS2 001230 89714 

|SMAMS3 001234 89714 

'SMAMS4 001240 89718 

'SMBADR 001002 8970 

'SMCALL= 000000 # 

'SMFLG 013122 10539#* 

'SMNEW 012647 10936# 

SMSGAD 001210 89714 10939 

SMSGLG 001212 89714 10939* 

/SMSGTY 001174 89714 10939* 

SMSWR 012636 109368 

$MTYP1 001225 89714 

SMTYP2 001231 89714 

$MTYP3 001235 89714 

SMTYP4 001241 89718 

SMXCNT 013604 109450 

SNESTL= 177777 79624 8994" 8999% 90424 9049" 9052" 9056" 9084# 9086" 9091# 9094" 9101% 91048 


93004 93124 93154 93434 93504 95744 93778 93804 93844 
95044 95074 95084 9509 9510# 95144 9515 95174 9519% 95424 95444 95604 
95654 957454 95774 95934 9595 96114 96144 96234 96264 96444 96464 96494 
96614  %o62# 96664 96674 66 96754 96824 96844 96854 96944 96954 
9oyown 97044 97124 97174 97384 97408 97414 97434 97684 97764 97814 97918 97978 
98054 98164 98254 98274 98334 98584 98604 98624 98644 9871 98824 98834 9886 
98904 98924 9894# 9896 9898# 9900 99064 99074 99124 9919% 9922# 9979% 99814 
100184 100204 10023 100274 100284 10048# 100514 100814 100834 101204 10124# 10128 101314 
101324 101614 101634 101854 101914 101934 101994 102014 102144 102204 102214 102254 102274 
102284 102304 10247 102504 10278# 102854 102884 102944 102984 10308 10312# 103144 1034 
103454 104064 104074 104114 10414 10454# 104574 104964 104984 10502# 105054 105084 10514# 
105444 105464 10547# 105494 10560 10563# 105654 10568 105694 105704 10572# 10573# 10574# 
105784 105804 105814 105834 10622 10661# 106634 10665 10667# 10670 106735# 10675 106814 
106874 106894 106974 10710 10735# 10738# 107424 107554 107734 107744 10775# 107764 1078 
108204 108414 108424 108434 10845 10850# 10855 108604 108614 108624 108694 108704 108734 
108744 108754 108924 108984 109204 
$NSKO = 000300 89944 8999 90424 9056 90844 9086 90914 9094 91014 91124 911 91244 
9127 91454 914 9152# 9155 91624 91734 917 91854 92204 
92304 923 92414 9244 92534 56 9279# 9282 92894 9292 93004 9303 93124 
93434 93744 9386 93904 9402 94264 9433 94584 9460 946 
9518 951 95424 954 9560# 9565 95744 9577 95934 96114 96234 
9626 96444 96474 9661# 9667 56684 75 96824 969 96984 97 
97124 971 97384 9740 97414 97684 977 97814 97974 98164 
9825 98274 98584 9862# 9864 98714 9912 9919% 992 99798 
100184 1002 100484 1005 100814 1 101204 1013 101614 101 101854 10221 102254 
10227 8102284 10 102474 10 102784 10314 103434 10345 10406# 10407 10411# 10414 
| 104544 1045 104964 10505 105084 10514 105444 10546 10547# 10549 10560# 10563 105654 
19388 + 314 614 10580 105814 10583 10622 10697 10710# 10742 107554 10786 108204 
| ssk1 = 000110 90494 9052 93774 9379 9385 94804 9483 94944 9499 9508 9509# 9515 9517 
| 


-cco 


ee ee ee eee ee ee ee ee ee ee 


0 
MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 196012 
CNDVCA.P11 27-DEC-82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0118 


| 
96624 9664 9666 pease 9694 gee ; 989 98944 989 9907 100204 10057 10027 | 
101244 10998 1 ose 1019 10193 1919 19904 102144 1022 102854 10288 102944 10298 
1030 10312 104984 19s02" 105694 10373" 106614 10675 10681 106874 10689 109389 10738 
SNSK2 = 000110 MOehoe 10e8 "9 aa 198 ha '9eeew 10 9514 96854 969 98834 9886 9890 98984 
= 4 
9900 +44 10570# 10572 106634 ue 10667 106704 1067 107744 10775 108424 10855 
10860 108694 10874 
SNSK3 = 000110 108434 10845 10850 108704 10873 
SNULL 001154 89714 10933 
SNWTST= 000001 90334 90784 91394 92014 92714 pe Ed pt Ed 94154 94524 95364 95874 96394 9732 
98504 99714 100764 101564 102424 103374 105594 105954 
SOCNT 014254 109514#* 
SOMODE 014256 109514* 
SOVER 013570 109454 
SPASS 001202 89714  8986* 10870 10927* 10945 
SPASTM 001006 9704 
SPOWER 011612 109304 
SPWRAD 011600 109304 
SPWRON 011440 8986 109304 
SPWRMG 011574 109304 
SPwRUP 011512 109304 
SQUES 001170 89714 10933 10936 10942 
SRDOCHR 012366 109364 10954 
SRODEC= seeeee 10954 
SROLIN 012506 109364 10954 
=S eeeeee 10954 
$RDSZ = 000010 10 
SRINAD 011416 igere 
SR2A = eeeeee 10954 
SSAVLE= 177777 79624 89998 95194 96954 9871% 98924 101854 102784 106814 107354 107734 107744 
SSAVRE= seeeee 10954 
SSAVR6 011610 109304* 
SSCOPE 013326 8986 109454 
SSETUP= 000137 89834 8986 6987 10927 10936 Hs 10945 
$SSKO = 000234 89994 95198 96954 98714 9892# 101854 102784 106814 107354 107734 10774# 
SSTUP = 177777 89834 
SSVLAD 013534 109454 
SSVPC = 000204 89684 
SSWR = 167400 79674 8845 34] 8971 $966 9033 9078 9139 9201 9271 9333 1 
pots 9536 958 9639 973 9850 9971 10076 10156 10242 10337 10539 10595 
1092 10930 10942 10945 
SSWREG 001216 89714 89 
SSWRMK= 000000 ooe8 1094 
STAGLE= 177777 79624 «899448 89994 90424 9049% 90524 90564 90844 90864 14 91014 91044 
91124 91154 osSee ah 144 9145¢@ 91478 91524 91554 91624 91654 91734 91768 91854 
1884 92204 38 34 8=692304 O87 te agehg a8see TF ed 3 4 38 9” §=6—92824 Ht $4 92928 
3004 93034 935124 93154 9 S 74 93744 93764 957748 794 = 69 93824 93844 
93854 93864 93904 94024 Sef 943 st rd td 946 804 8 94948 94 
04 95074 95084 95094 95 95148 95154 95174 951 95194 95428 95448 956084 
95654 95748 95774 95934 95958 96118 96144 44 a 4a rd 96474 
4 24 4a 38 7# + >i 754 + # 4a 54 9 96944 96954 
97048 97124 97174 9 4 4 97414 4 4 97684 97768 97818 97914 44444 
98054 981 43 # eB 7a 38 85 5 59d oeese 4 98714 98824 we 
100184 1002 ; 100244 10 100 53o8 19 H 1 er 1 14 1 1 ae 101208 191 rf 191 aoa 
101324 101474 101634 101854 199948 1889 199998 199018 Iootee 199508 102214 190580 102274 
| 





C1 
CY11 30(10466) 27=DEC-82 11:37 PAGE 196-15 





MAINDEC=11=CNDVC=A MACY 
|CNDVCA.P11 27-DEC=82 11:36 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0119 
102284 102304 102474 102504 102784 102854 102884 102944 102984 103084 103124 103144 103434 
103454 104064 104074 104114 eee 10454# 104574 104964 104984 105024 105054 105084 105144 
105444 1054 10547# 105494 10560# 105634 105654 105684 54d 10570# ib 5 10573# 105744 
105784 105804 105814 105834 es ed 136 34 106654 106674 106704 106734 °067 106814 106874 
106894 107354 107384 107736 107748 10775 107764 108414 108424 108434 108454 10850 108554 
| 108604 108614 108624 108694 108708 ‘'0873# 103744 108754 
| STAGNU= 000252 79628 §=689948 §=69042# 89904698 90848 30918 91018 91124 91244 91454 91524 91624 91734 
91854 92204 oSabe 92414 92534 92798 92894 93004 93124 93434 93744 9376# 93778 
93798 93804 93824 93908 9426 94584 94634 94804 94948 9499% 95044 95094 
95158 95428 95608 95744 959 9611% 96234 96444 96474 96614 96624 96644  9667# 
96684 96824 96844 96854 96984 97124 97384 97418 97684 97814 97974 98164 98278 
| 98584 98624 98718 98824 98834 9894" 989 98984 99004 99194 # 1001 
100204 100234 100484 100814 10120# 10124# 101284 101614 101854 101914 10199# 10214# 102254 
102284 102474 102784 102854 10294# 103084 103434 104064 104074 104114 104544 104 104 
5084 105444 105474 105604 105654 105684 es 3 105704 105784 105814 106224 106614 10 
106654 106704 106874 107104 107354 107554 107734 107744 10820# 108414 108424 10 108454 
108554 108624 108694 10870# 108984 
STEMP = 000300 89994 9000 90014 90064 9008 9009 90114 90124 90134 90144 90154 901 90384 
| 90414 90434 90454 9052 90544 90554 90564 90574 90854 90864 90894 # 
90984 9099% 91044 9108 9110 9115 91198 91214 91274 914 91474 915 91554 
91594 91654 91694 91718 91764 91804 91824 91 92184 92234 92278 
34 8692374 8 9239H 92448 2484 92508 2564 385 # 92824 92864 92874 92924 
92984 93034 93074 93094 93154 934 93504 93764 93798 93824 93834 93844 93854 
93864 93884 939 94024 94248 943 94594 94604 9462 94654 946 
949 964 94998 95074 950 95134 95144 9515# 51 95174 95184 9519% 95434 
9544" 95474 95498 95524 956 95654 95694 95774 95944 95954 95984 95994 96044 
96094 96144 96214 96454 96484 96494 9653 6544 96554 96604 966 
96644 96654 396 7a 397 # 96744 96754 96894 3444 96934 96944 eeeee 97014 
34 8697048 «6997108 97154 97178 97398 997408 97428 974 97454 97498 97558 97604 
97654 97718 97754 7 9 97854 97904 97918 97948 98014 98044 98054 98084 
124 98198 98244 98254 98308 334 98594 98604 34 8698644 986 8674 98684 
98694 98714 98724 98744 98768 98788 98804 98814 98854 98 988. 98894 98904 
98924 98964 99004 99054 99064 7# 8699098 99108 9912# 991 9914 9915# 99184 
9922# 99804 99814 99854 9988% 9990# 9992 9993# 99984 10012# 1002 100274 100284 
10031# 100334 100354 100514 100554 H's Fd 100874 100894 100904 100924 100944 101084 10114# 
101184 101234 101284 101314 101324 101574 101414 101434 101444 101624 1016 101654 101674 
101824 101854 Hb 9h 101934 101964 102004 102014 102034 10210# 102114 102174 10219# 102204 
102214 10224# 10227# 102304 102494 UF od 102524 10262# 44 4 102784 102874 102884 102914 
102974 102984 103014 105044 1035054 105114 10312 103144 1035184 10344# 103454 10377# 103798 
103804 103834 103844 103874 103894 103914 1972 103974 104004 Hees 74 104074 104094 104144 
104164 104174 104484 104504 104524 10456 104574 10489" 104914 10495# 105004 105014 105024 
105044 105054 105104 105144 105454 10546# 105484 105494 105514 10553 10555# 10557# 105634 
105674 105684 105714 4A 10573#@ 10574# 105804 10583# 106544 106554 1065 1 # 10665# 
106664 106674 106724 1067 10675#@ 10680# 106814 106894 106974 107324 1073 10735#@ 10736# 
10737# 107384 107394 $4 5 4 10772#@ 10773# 107744 10775# 444 107864 108134 10839# 108404 
108444 108454 108494 1085 10851# 10852# 1085 108544 108554 108504 108574 108584 108594 
108604 108614 108634 esp red 108654 10872# 1087 108744 10875# 108774 108784 108924 109208 
S$TESTN 001200 89714 9033* 9078+ 91359% 92018 BS uae 9333* 9365*  9415* pote 9536* 9587* 9639 
9732 9850* 9971" 10076 BOF 10 36s 10337* 10539* 10905  10945* 
STIMES 001160 89714 8986* 9033* 9078+ 9085 9139+ 146* 9201* 9271* 9333* 9365" 9383" 9415+ 
9452e 9459* 9536* 9543* 95872 9594 9639% 9645" 9648 9674" 96922 9703" 9732s 
9739* 9742e 9775* 9790* 9804" 9824* 9850" 9859* 9863+  9971* Bethe 10076* 10156 
10rgee else 10242* 10249* 10287* 10297* 10311* 10357* 10344 10539* 10545* 10548 10595* 


$TKB 001146 89714 10936 
$TKS 001144 89714 10936* 


MAINDEC=11=CNDVC=A 


CNDVCA.P11 


STN 


27-DEC-82 
000026 


000246 


000247 


MACY11 30(1046) 


11:36 
79684 


D.10 
11:37 PAGE 196-14 


9146 
9594 


9804 
10249 


1 
106634 
98824 


9593 


27=DEC-82 

CROSS REFERENCE TABLE == USER SYMBOLS 
90334 90784 9085 91394 
8365 95364 9543 95878 
9739 9742 9775 9790 
10156# 10162 10219 102424 
10548 10584 10595¢ 

90424 056 90844 9086 
9147 91524 9155 91624 
92418 244 92534 256 
9350 93744 9376# 9386 
9544 95604 565 95748 
96474 649 9661# 9667 
9740 97414 743 97684 
985 9860 98624 9864 
10051. 100814 10083 101204 
10247# 10250 10278 10314 
0505 105084 10514 10544# 
0580 105814 10583 106614 
108624 10875 

90494 9052 9377# 93798 
98714 9912 100204 100234 
10502 18367" 10573 106614 
108694 10874 

9384 94804 9483 94944 
98944 98964 9907 101914 
103084 10312 10570# 10572 
10850 10870# 873 

95104 514 9685¢ 9693 
9890 

10942 10945* 

10954 

9145 9377 9380 954 
10345 10544 10569 1073 
90144 90154 90544  9055# 
92504 92874 9298# 93098 
97014 97154 974658 97718 


92014 


9508 
101994 
106654 

9892 


9644 


92714 
5 


98984 


9738 


93334 
9648 


9859 
10311 


106704 
99004 


9741 


93654 

9674 

9863 
103374 


9858 


3 
10344 


96844 
102854 
107744 
107748 


9913 


SEQ 0120 


91244 
9 


10081 


MAINDEC=11=CNDVC=A 
27-DEC-82 


CNDVCA.P11 


SSARGC= 000000 
S$BYTE= 000403 


$$DST = 000067 
$$FLAG= 000001 


| 
i 


| 
| SSFROM= 000000 


| $$GET4= 000000 
ee 011060 
| 


$$LOCN= 000000 
$$RETU= 000000 
$$RTNI= 000250 


MACY11 30(1046) 


11:36 
6 dad 


97404 


10 
11:37 PAGE 196-15 


CROSS REFERENCE TABLE == USER SYMBOLS 


27=DEC-82 
99144 444 9 
101444 101674 
103054 103184 
104934 105044 
107734 10774 
107554 s+ 
90844 90 Al 
92534 9279 
95094 35108 
96984 97128 
98944 98984 
102284 10247# 
10570# 105784 
90524 90844 
91524 91554 
92444 92534 
93744 93778 
94834 94948 
95744 95778 
96664 6684 
97404 97414 
98584 98604 
99798 99814 
101324 101614 
102474 102504 
108658 10569" 
106938 106874 
95034 95574 
101984 10275# 
90564 90844 
92414 92534 
94804 94948 
96624 6674 
98164 98274 
100814 101204 
103434 104074 
105784 105814 
107104 10742 
106904 10697 
10697 1071 
10697 10710# 
5034 9557 
101984 10275¢ 


96084 


$0 9 


07554 


97578 
102934 


e 
8504 


98144 
105594 


1 
10820# 


98144 
105594 


108604 
9995" 
106794 
91454 
93434 


99954 
106794 


100154 
108464 


100474 


101124 


SEQ 0121 





F 10 
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CNOVCALPI1 — 27=DEC=82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0122 
$105 004762 9741 97438 
$106 005070 9768 97768 
‘$107 005124 9781 97918 
$11 002562 9112 9115# 
$110 005162 9797  9805# 
$111 005240 9816 98254 
$112 005260 9827 98338 
‘$113 005316 9858" 
$114 005326 9858  9860# 
$115 005346 9862 98644 
$116 005402 98718 
‘$117 005400 9871" 9912 
$12 002612 9124 91278 
$120 005554 9871 99128 
$121 005440 9882" 
$122 005474 9882 9892" 
$123 005462 9883 9886# 
$124 005472 9886 98904 
$125 005506 9894  9896# 
$126 5536 9896 99074 
$127 005530 9898 9900# 
$13 002650 9145# 
$130 36 9900  9906# 
$131 005622 9919 99228 
$132. 005712 9979 99818 
$133 70 10018 100284 
134 026066 10020 100234 
$135 006070 10023 100278 
$136 006146 10048 100514 
$137 006234 100814 
$14 002660 9145 91478 
$140 006240 10081 100834 
$141 006434 10120 101328 
$142 006432 10124 101284 
$143 006434 10128 101314 
$144 006540 101614 
$145 006550 10161 101634 
$146 006620 101854 
$147 006616 10185# 10221 
$1 002700 9152 _9155# 
$150 006772 10185 102214 
$151 10191 101938 
$152 006732 10199 102014 
$153 006770 10214  10220# 
$154 007012 10225 102278 
$155 007024 10228 10230" 
$156 00706 10247" 
$157 007072 10247 10250# 
$16 002726 9162 9165¢ 
$160 007144 102784 
$161 007142 10278# 10314 
$162 007320 10278 103144 
$163 007216 10285 102888 
$164 0072 10294  10298# 
$165 007316 10308 103128 
$166 007 103430 


' wn 





a a 
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ARAAMHHAHHHNMMMHMMMHH 


MAINDEC=11=CNDVC=A MACY1 
CNDVCA.P11 27-DEC-82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0123 
$167 007374 10343 103454 
$17 002754 9173 91764 
$170 007506 104064 10407 
$171 007522 104074 
$172 007540 10411 104144 
$173 007620 10454 104574 
$174 007700 10496 =105054 
$175 007674 10498 105024 
$176 007714 10508 105144 
$177 007760 105444 
$2 002122 8994 89994 
$20 003004 9185 91884 
$200 007770 10544 105464 
201 010010 10547 105494 
202 010072 10560 105634 
203 010110 10565 105684 
204 010136 10568 105744 
205 010136 10569 105734 
206 010136 10570 105724 
207 010152 10578 105804 
21 003054 9220 92234 
210 010164 10581 105834 
211 010466 10688 106974 
212 010470 10690 106974 
213 010336 106614 10681 
214 010442 10675 106814 
215 010356 10663 106654 
216 010364 10665 106674 
217 010402 10670 106734 
22 003102 9230 92334 
$220 010454 10687 106894 
$221 010570 10740 107424 
$222 010570 107424 
$223 010534 107354 
$224 010530 107354 10738 
$225 010560 10735 107384 
$226 010650 107864 
$227 010650 107864 
$23 003130 9241 9244m 
$230 010616 107734 
$231 010612 10773# 10776 
$232 010642 10773. 10776# 
$233 010630 107744 
$234 010626 107744 10775 
$235 010640 10774 107754 
$2 011124 10879 108924 
$237 011124 108924 
$24 003160 9253 92564 
$240 010676 108414 10861 
$241 010762 10842 108554 
$242 010722 10843 108454 
$243 010730 10845 10850# 
$244 011002 10855 108604 
$245 011070 10862 108754 
$246 011070 10869 108744 
$247 011070 10870 108734 


H 10 
MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 196-18 


CNDVCA.P11  27=DEC=82 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0124 
$25 003216 9279 9282" 
$250 011314 109208 
$251 011314 109208 
$26 003244 9289 9292" 
$27 003272 9300  9303# 
$3 002320 9042" 9056 
$30 003322 9312 93154 
$31 003362 9343  9350# 
$32 3410 9374 93768 
$33 003446 9376 93868 
£ 003424 9377 93798 
$35 46 9379 9385# 
36 9380 93828 
$37 003446 9382 9384" 
002344 9049 90528 
$40 003476 9390 9402" 
S4OCAT= teases Y 10942 10945 
$41 003536 9426 94338 
$42 003574 94584 
$43 3604 9458 9460# 
$44 003612 94634 
'$45 004022 9518 95198 
$46 003666 9480 94838 
$47 714 9494 94998 
$5 2456 9084" 
$50 003750 9499 9508" 
$51 003750 9504 95078 
$5 004002 9509  9515# 
$5 004 9510 9514" 
$54 004010 9515 95178 
$55 004070 95424 
$56 004100 9542 9544" 
$57 004162 9560 95654 
$6 002466 9084 9086s 
$60 204 9574 95778 
$61 004242 95930 
$62 004252 9593 9595" 
$63 004334 9611 96148 
$64 004352 9623 962 
$65 004410 9644" 
$66 004420 9644 96468 
$67 004440 9647 96498 
$7 002506 9091 9094" 
$70 004460 1# 9667 
$71 004476 2 9664m 
$72 004500 9666" 
$73 004514 7# 
$74 004542 9668 96758 
$75 004542 96824 9695 
($76 004614 9682 9695" 
or aei5 3065" 8968# 8969" 8970# 89718 -89BIe 898 994 8995" 8997" 9049 9056 9084 
= a 
9091 9101 9112, 9124 «9145, 9152, ed ««OTTS«OTBS9a80, 08 aah ae 
330, 9509 «9810 $549 3860 9574 «9898 SeTT 868 eae 8kP EDO RT 
9668 9682 9684 968 658 «9713,««878R«COOta1««kRSOCBT. «ootG? ht (kS 


MAINDEC=11=CNDVC=A 
CNDVCA.F11 27-DEC=82 11:36 
9858 
10124 
10411 
105964 
109114 
- SASTA= eeeree YJ 10939 
-$x == 001000 89708 
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9862 
10161 
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9882 988 
10191 1019 
10496 1049 
19670 1068 
19930 1093 
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9894 
10214 
10508 
10842 
109364 


9898 9919 
10225 10228 
10544 10547 
10843 10861 
10939# 10942 


10020 10048 10081 
10294 10308 10343 
10569 10570 10578 
10870 10890# 109044 
109564 


SEQ 0125 
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CNDVCA.P11  27=DEC=82 
EGIN 73908 
BGNHRD 7973 
BGNHW 7976# 
BGNINI 7979" 
8G 79824 10616 
BGNMSG  7985# 
BONSFT 7989" 
BGNSRV 7992# 10436 
'BGNSUB 79978 9043 
| 9286 9296 
| 10089 
BGNSW _8006# 
'BRESET 8009# 9021 
CALL =—-_ 70638 
| 10190 10198 
CASE 7329 
/CKL 8021# 9316 
CLRVEC § ©8024 =. 9057 
COMMEN 1566#  8848# 
DECR 
DECRU 70028 
DEFAUL 7372 
DEVREG 80494 
DEVTYP 8052 
DISPAT  8055# 
ELSE (64278 9376 
10855 
END 74078 
ENDCLN 80584 
ENDCOM 1578 88484 
ENDDEC 70078 
ENDDO 6498# 8999 
ENDHRD 80614 
ENDHW 80644 
ENDIF 6445 9052 
9256 9282 
9514 9517 
9717 9740 
0027 10028 
10312 10345 
7 10673 
ENDINC 69834 9912 
ENDINI 0674 
ENDLOO 68714 9519 
ENDMOD  8070# 
ENDMSG 80734 
ENDRIN 72254 10697 
ENDSEL 7316 
ENDSFT 80774 
ENDSRV 8080# 10463 
ENDSUB 80914 9053 
9293 930% 
10133 
ENDSW 8094 
ENDTST 80974 9059 
10057-10145 
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10477 


9123 
9477 
10275 
9352 
10055 


9379 


9382 
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9108 
9388 


9252 
9557 
10293 
9435 


9499 


9515 


se 
oooowu0o0n0 


9664 


915 
956 


9354 


9159 
9569 


9401 
9762 
10679 


9886 


9166 
9578 


9406 


9896 


9177 
9615 


9437 


9900 


9189 
9777 


9524 


10023 


10128 


9234 
9806 


9627 


10568 


—o 
oo 
wn 
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9245 
9834 


9722 


10116 


10665 


9257 
10029 


9835 


SEQ 0126 


10845 


9283 
10053 


9953 
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or 81008 


RROF 81044 051 
ERRHRD 8116# 9093 9103 9114 9126 9154 9164 9175 9187 9222 9232 9243 9255 9281 9291 
930 9314 9347 9394 9430 9482 950 512 9564 957 9613 9625 9673 9690 9702 
97% 977 86 9802 9820 9831 9921 10022 1002 10050 10126 10130 10218 10226 10229 
295 10310 1041 10562 10579 10582 
ERROR 88484 905 9103 114 126 9154 9164 9175 9187 9222 9232 9243 9255 9281 
9302 9314 9347 9394 9430 9482 950 9512 9564 9576 9613 9625 9673 9690 
9702 9716 9772 9786 9802 9820 9831 9921 10022 10026 10050 10126 10130 10218 10226 
10229. 10286 §=10295 10310 10413 10562 10579 10582 
SCAPE 16984 88484 
XIF 68294 951 
XIFB 68514 10675 
XIT 81284 9085 9146 9383 9459 9520 9543 9594 9645 9648 9674 9692 9703 9719 9739 
9742 9775 9790 9804 9859 9863 9923 9980 10162 10219 10249 10287 10297 10311 


0 9824 
10344 yh 10545 10548 10584 


10095 10038 10947 10308 10303 eal; 10454 10496 10498 10508 10544 10569 10570 10578 19581 
IFB 63388 9374 9458 9644 9862 10869 10565 10670 10687 
— ore 9480 9504 9560 9611 10191 10199 10285 10294 10560 
INCR 69724 9871 10185 10278 10735 10774 


Hae se 
LET 79224 =©9000 =: 9001 9006 69008 9009 9011 9012 9013 9014 9015 9016 9038 
9 9054 9055 9057 9085 9089 9098 9099 9108 9110 9119 9121 9146 9150 

9159 9160 = 9169 9171 9180 9182 9218 9227 9228 9237 9239 9248 9250 9277 9 
9287 = 9296-9298 = 9307S: 9309 934 9383 = 9388 = 9393 9424 9459 946209465 94660 9473 
os 9496 9513 9516 9543 954 9549 9552 9563 9569 9594 9598 9 9604 9609 
9621 5 964 9653 9654 9655 9660 9663 9665 9672 9674 9689 9692 9701 9703 
9710 9715 9739 9742 9745 9749 9755 9760 9765 9771 9775 9780 9785 90 9794 
9801 9804 9808 9812 9819 9824 983 9859 9863 9866 9867 8 9869 9872 9874 
9876 9878 9880 9881 9885 9888 9889 9905 9909 9910 9913 9914 991 9918 9980 
9985 9988 9990 9992 9993 (9998 10012 10031 10033 16035 10055 10087 10089 10090 10092 
10094 10108 10114 10118 10123 10137 10141 10143 10144 10162 10165 10167 10182 10192 10196 
10200 10203 10210 10211 10217 10219 10224 10249 10252 ese 10276 §=©10287 §=6919291 10297 10301 
103064 103505 10311 10318 10344 10377 10379 10380 10385 10384 10387 10389 10331 19393 10397 
10400 10402 10409 10416 10417 10448 10450 10452 10456 10489 10491 10493 10500 10501 10504 
10510 10545 10548 10551 10553 10555 10557 10567 10571 10654 10655 10656 10664 10666 ie 1 
10680 10732 10735 10736 10737 10739 10772 10813 10839 10840 10844 10849 10851 10852 1085 

— te 10856 10857 10858 10859 10863 10864 10865 10872 10877 10878 


L_10 
MAINDEC=11=CNDVC=A macy 30(1046) 27=DEC=82 11:37 PAGE 197-2 
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LOOP 66914 9463 10661 
MSG 90264 9033 90714 9078 92694 9271 9448# 9452 95324 9536 96354 9639 98454 9850 99644 
9971 100714 10076 10153# 10156 103344 10337 105334 10539 
MULT 44848 88484 
NEWTST 1626 88484 9033 9078 9139 9201 9271 9333 9365 9415 9452 9536 9587 9639 9732 
9850 9971 10076 10156 10242 10337 10539 10595 


21534 88484 9057 10055 10144 10781 10930 10939 10948 


2145#@ 88484 9057 10055 10144 10767 10930 10939 10948 
REPEAT 6516# 9042 9661 10494 10841 


‘RETURN 71964 10688 10690 10740 10879 
/ROUTIN 71114 10622 10710 10755 10820 10898 


9033 9078 9139 9201 9271 9333 9365 9415 9452 9536 9587 9639 9732 9850 
9977, 10076 10156 10242 10337 10539 10595 10927 
\SETPRI 12794 88484 9207 10005 10041 10107 10175 10269 10371 


96 96 9692 9703 9719 
9775 9790 9804 9824 9859 9863 9923 9980 10162 10219 10249 10287 10297 


8885 8887 8905 8907 892 8929 8948 8964 8968 8970 8971 
9066 9068 9078 9138 9139 9200 9201 9268 9271 9329 9332 9333 9364 9365 
9414 9415 9447 9531 9536 9586 9587 4 9731 9732 9844 985 9 
9971 10070 10076 10152 10156 10241 10242 10333 1033 10430 10441 10471 10482 10532 10539 
10595 10617 10645 10705 10726 10750 10766 10795 10806 10825 10834 10903 10927 10930 10933 
936 10939 10942 10948 10951 10954 
STRUCT 57204 7961# 7962 
SWRSU 14534 884 89864 
TRMTRP 109544 
TYPBIN 2 884 
TYPDEC 20584  8848# 10601 10927 


10598 10600 10904 10906 10909 10911 10913 


$ADDON 58054 8994 §999 $042 9049 9084 9091 9101 a 9124 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 9312 934 9374 9376 9377 9379 9380 9382 

9390 9426 9458 9463 9480 9494 9499 9504 9509 9510 9515 9519 9542 9560 9574 

9593 9611 9623 9644 9647 9661 9662 9664 9667 9668 9682 9684 9685 9695 9698 

9712 9738 9741 9768 9781 9797 9816 9827 9858 9862 9871 9882 9883 9886 9892 

94 896 9900 9979 10018 10020 10023 10048 10081 10120 10124 10128 10161 

10185 10191 10199 10214 10225 10228 10247 10278 10285 10294 10308 10345 10406 10407 10411 


‘ame 
! 


MAINDEC=11=CNDVC=A 


CNDVCA.P11 


SAND 
SBRANC 


$BRCOD 
| SCALL 
| $CHECK 


| 


| SCHK1 


SC KiIF2 





SCKR6 
$SCMND 


SCOMPA 


27=DEC-82 

10454 10496 
10663 10665 
0855 10862 
60924 9898 
5931# 8994 

220 9230 
9390 9426 
9593 9611 
9738 9741 
9896 _9898 
10185 10191 
10411 10454 
10665 10670 
0843 10845 
62304 9084 
0247 10278 
7039# 9003 
0190 10198 
62884 8994 
9241 9253 
9510 9542 
9741 9768 
10020 10048 
10498 10508 
10869 10870 
7725# 9000 
9089 9098 
9296 9307 
9543 9549 
9692 9703 
9812 9824 
9905 _9909 
10108 10118 
10291 10297 
10500 1050" 
10772 10773 
10872 10877 
78264 9012 
9239 9250 
9715 9745 
10012 10075 
det? 10224 
10456 10489 
10857 10858 
75544 ©9913 
61198 8994 
$241 9253 
9510 9542 
9741 9768 
10020 10048 
10498 10508 
10869 10870 
6280# 899 

9241 9253 
9504 9509 
9685 9698 
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10544 10547 
10687 10710 
10898 

9056 9084 
9279 9289 
9494 9499 
9647, 9662 
9797 9816 
9919 997 
10221 10225 
10508 10544 
10687 10688 
10862 10869 
951 9542 
10544 10675 
9557-9608 
10293 10352 
9091 9101 
9300 9312 
9623 9644 
9816 982 
10124 10161 
10565 10569 
9008 9009 
9146 9150 
9388 9424 
9594 9599 
9742 9749 
9866 9867 
9980 9985 
10162 10165 
10344 10377 
10551 10557 
10840 10844 
9015 9054 
9309 =: 9393 
9801 9819 
10094 10114 
10304 10305 
0504 10510 
9091 9101 
9300 9312 
9623 9644 
9816 9827 
10124 10161 
10565 10569 
9091 9101 
9300 9312 
9560 9574 
9741 9768 


oy 
oooowuuono0ono 
NUINROOOUW— 
WANNVIAQ—f— 
N BSOMmOoOwnvcnown 


— 
wooo oouon0o0n0 


ced ead eed oad cad 
ooou0oo oGoO°0o°oo.!H 
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a 


sb as 
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9894 9898 
10225 28 


3 9 950 9608 7 9762 981 
10190 §=10198 10275 10284 10393 10352 10559 10679 10846 
$00 899 968 9882 


'SEXIFS 67794 
| SGENGR 59244 8994 8999 9049 9056 9084 9091 910 9112 9124 9145 9152 9162 Si7z 9185 
922 9230 9241 9253 9279 9289 9300 9312 9343 9374 9376 ETE A 9379 9380 9382 
9390 9426 9458 9480 9494 9499 9504 9509 9510 9515 9518 9519 9542 9560 9574 
9593 9611 9623 9644 9647 9662 9664 9667 9668 9682 9684 9685 9695 9698 9712 
9738 9741 9768 9781 9797 9816 982 9862 9871 9882 9883 9892 
989 9898 912 9919 10018 10020 10023 10048 10087 10125 10124 10128 10161 
10185 §=10191 10199 10214 10221 10225 10228 10247 10278 10285 10294 10508 10314 10343 19407 
10411 10454 10496 10498 10508 10544 10547 10560 10565 10568 10569 10570 10578 10581 10663 
10670 10675 10681 10687 10688 10690 10735 10738 10740 10773 10774 #10775 10776 
10843 10845 10855 10861 10862 10869 10870 10879 
SGENTA 5900# 8994 8999 9042 9052 9084 9086 9094 9104 9115 9127 9145 9147 9155 9165 
9176 9188 9223 9233 9244 9256 9282 9292 9303 9315 9350 9376 9379 9382 9 
9385 9386 9402 9433 9458 9460 9463 9483 9499 9507 9508 9514 9515 9517 9519 
542 9544 9565 9577 9593 9595 9614 9626 9644 9646 9649 9661 9664 9666 9667 
9675 9682 9693 9694 9695 9704 9717 9738 9740 9743 9776 9791 9805 9825 9833 
9860 986 9871 9882 9890 9892 9896 9900 9906 9 912 992 
10023. 10027 10028 10051 10081 10083 10128 10131 10132 10161 1016 10185 10193 10201 10220 
1022 10227 10230 10247 10250 10278 10288 10298 10312 10314 10343 10345 10406 10407 10414 
104 10502 «10505 38610514 10544 10546 10549 10563 10568 10572 10573 10574 10580 10583 10661 
10665 10667 10673 10681 10689 10697 10735 10738 10742 10773 10774 #10775 10776 10786 
10845. 10850 10855 10860 10873 10874 10875 10892 10920 
SIF 63064 9049 9084 9091 91 9112 9124 9145 9152 9162 9173 9185 9220 9230 9241 
9253 9279 9289 9300 9312 9343 9374 9377 9380 9390 9426 9458 9494 9509 9510 
9542 9574 9593 9623 9644 9647 9662 9668 9684 9685 9698 9 9738 974 
9781 9797 9816 9862 9883 9894 9898 9919 9979 10018 10020 10048 10081 
10120 §=610124 «=610161 §=10214 10225 10228 10247 103508 10345 10411 10454 10496 10498 10508 10544 
10547 10565 10569 10570 10578 10581 10663 10670 10687 10842 10843 10862 10869 10870 
SIFCOD 6178# 8994 9049 9091 9112 9145 9152 9162 9173 9185 9220 
9230 9241 9253 9279 9289 9300 9312 9343 9374 9377 9380 9390 9426 9458 9494 
9509 9510 9542 9574 9593 9623 9644 9647 9662 9667 9668 9682 9684 9685 9698 
9712 9738 9741 9768 9781 9797 9816 9827 9862 882 9 
9979 10018 10020 10048 10081 10120 10124 10161 10214 1 10228 10247 10308 10343 10407 
10411 10454 10496 10498 10508 10544 10547 10565 10569 10570 10578 10581 106635 10670 10687 
10842 108435 10861 10862 10869 10870 
SIFCON 63454 9480 9504 9560 10191 10199 10285 10294 106560 
SIFOPR 5944# 8994 9049 9056 9084 9091 9101 9112 9124 9145 9152 9162 9173 9185 9220 
9230 9241 9253 9279 9289 9300 9312 9343 9374 9377 9380 9390 9426 9458 9480 
94 9504 9509 9510 9542 9560 9574 9593 9611 9623 9644 9647 9662 9667 9668 
9682 9684 9685 9698 9712 9738 9741 9768 9781 9797 9816 9827 9858 986 9882 
9883 894 9898 9 979 10018 10020 10048 10081 10120 10124 10161 10191 10199 10214 
10225 10228 10247 10285 10294 10308 10343 10407 10411 10454 10496 10498 10508 10544 10547 
10560 10565 10569 10570 10578 10581 10663 10670 10687 10842 10843 1086 10862 1086 10870 
| $SLET 7909% 9000 9001 9006 008 9009 9011 9012 9013 9014 9015 6 9038 0 9 
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D.11 
/MAINDEC=11=CNDVC-A MACY11 30(1046) 27=DEC-82 11:37 PAGE 197-7 
CNDVCA.P11 27-DEC=-82 11:36 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0133 


10874 10875 89 10920 


STHEN 60274 9049 08 9091 9101 911 9124 9145 9152 9162 9173 9185 9220 9230 9241 
9253 9279 9289 930 9312 934 9374 9377 9380 9390 942 9458 9494 9509 9510 
| 9542 9574 9593 962 9644 9647 ones ogee 9684 9685 969 9712 973 97 6 
9 9816 9827 9858 3558 988 9894 9898 9919 9979 10018 10020 10048 10081 
10120 =10124 10161 10214 10225 102 10247 10508 10343 10411 10454 10496 10498 10508 10544 
erna eel 10565 10569 10570 10578 10581 10663 10670 10687 10842 10843 10862 9 10870 
$TILO 65634 
SUNTL2 66214 9667 10407 
SUNTL3 66004 
SWHILE 64604 8994 9682 9882 
SSCMRE 89714 
SSCMTIM 89714 
SSDEFA 73544 
SSENDS 73054 
SSERRO 60124 
SSESCA 17118 88484 
SSGEN 5 99 8999 904 9052 9084 9086 9094 9104 9115 9127 9145 9147 9155 9165 
9176 9188 9223 923 9244 9256 9282 929 9303 9315 9350 9376 9379 9382 93 
9385 9386 9402 9433 9458 9460 9463 948 9499 950 9508 9514 9515 9517 9519 
9542 9544 9565 9577 9593 9595 9614 9626 9644 964 9649 9661 96 9888 
9675 9682 9693 9694 9695 9704 9717 9738 9740 974 9776 9791 9805 982 9833 
9858 9860 9864 9871 9882 9886 9890 9892 989 9900 990 7 9912 22 998 
10023. 10027 10028 10051 10081 10085 10128 10131 1013 10161 1016 10185 10195 10201 10220 
10221. 10227 10230 10247 10250 10278 10288 10298 1031 10314 1034 10345 10406 07 1041 
10457 10502 10505 10514 10544 10546 10549 10563 1336 Weare 10573. «10574 +«=©10580 10583 Hs 4 
1066) 10665 19087 10673 10681 S68 18 97 10710 107 1923 1958 10755 10773) Ss 10774 ~=Ss «1077 
10776 =10 10820 10841 10845 10850 10855 10860 1087 10874 1087 1089 10898 10920 
S$GETS 5851" 8 9052 9056 9086 9094 9104 9115 9127 9147 9155 916 9176 9188 9223 
9233 9244 9256 9282 9292 9303 9315 9350 aa18 9379 2382 9384 9385 93 9402 
9433 9460 9483 9499 9507 9508 - 9514 9515 951 9518 9519 9544 9565 957 9595 
14 9626 6 9649 9 9666 9667 9675 9693 9694 9695 97 9717 9740 9743 
9776 =—s-«9791 9805 9825 9833 9860 864 9871 9886 9890 989. Se 9900 9907 
992 81 10023 10027 10028 10051 10083 10128 10131 1013 1016 10185 10193 10201 
10220 10221 10227 10230 1025 10278 10288 10298 10312 10314 1034 10407 10414 10457 10502 
10505 10514 10546 10549 1056 10568 1057 10573 «10574 410580 10583 1066 10667 10673 10675 
10689 10697 10735 10738 10742 1077 10774 10775 10776 10786 10845 10850 10855 1 
10861 10873 10874 10875 10892 10920 
SSGETT Bist Be 1okes 9382 9499 9515 9518 9664 9886 9896 9900 10023 10128 10568 10665 
S$LPCN 68874 9871 10185 10278 10735 10773 10774 
SSNEWT 16624 88484 9033 7 9139 389) 9271 9333 9365 9415 9452 9536 9587 9639 9732 
9850 9971 10076 10156 10242 10337 10539 10595 
$$POP 58754 8999 9052 9056 9086 9094 9104 9115 o1¢7 9147 9155 9165 917 9188 9223 
9233 9244 9256 9282 +4 9303 9315 9350 = «93 § 9379 9382 938 9386 9402 
9433 9460 9483 9499 950 44's 9514 S2h8 951 9519 9544 9565 9577 9595 9614 
26 964 9649 9664 age8 966 9675 969 9694 $695 9704 9717 9740 9743 9776 
9791 9805 9825 9833 986 9864 9871 aaoe 9890 989 98 9900 9907 9912 
9981 10063 10027 = 10028 )= 10051 39s 10083 = 1012 10137 §=1013 1016 10185 1019 10201 10220 
10221 10227 10230 10250 10278 10288 e9 ale 10314 1034 10407 10414 10457 10502 10505 
10514 1054 10549 10563 10568 10572 1057 10574 13380 18 $3 19682 10667 10673 10681 10689 
97 1073 10738 810742 10773 10774 1077 10776 = 107 1084 10850 10855 10860 10861 10873 
10874 10875 10892 10920 
SSPUSH 5839# 8 8999 o0e6 9049 9084 44 9101 aulg 9124 9145 B13¢ 8168 9173 =: 9185 
9220 9230 9241 925 9279 9289 9300 9312 934 9374 9376 937 93 9380 9382 


| so ereesmentiahslddaileaiceumeannnenieipenetntdaamedieetneigemiananpenteantinaniiea: 


-MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 197-8 
‘CNDVCA.P11 =. 27=DEC=82 11:36 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0134 
9390 9426 9458 9463 9480 9496 9499 9504 9509 9510 9515 9519 9542 9560 9574 
9593 9611 9623 96446 9647 9661 9662 9664 9668 9682 9684 9685 9695 9698 9712 
9738 9741 9768 # #9781 9797 981 9827 9858 986 9871 9882 9883 9886 9892 9894 
896 989 9900 9919 9979 1001 10020 10023 10048 10081 10126 10124 10128 10161 10185 
10191 10199 10214 10225 10228 10247 10278 10285 10294 10308 10343 10406 10411 10454 10496 
10498 10508 10544 10547 10560 10565 10568 10569 10570 10578 10581 10622 10661 10663 10665 
| 70 10681 10687 10710 10735 10755 10773 10774 10820 10841 10842 10843 10845 10855 10862 
| 10869 10870 10898 
SSSELE 72448 
i$$SET 109548 
'$$SETM © 89864 
$$SETS 58208 8994 8999 9042 9049 9086 9091 9101 9112 91246 9145 9152 9162 9173 9185 
9220 9230 9241 9253 9279 9289 9300 9312 9343 9374 93 9377 9379 «= «93800Ss«&9382 
9390 9426 9458 3463 9480 9494 9499 9504 9509 9510 951 9519 9542 9560 9574 
9593 9611 9623 9647 9661 9662 9664 9668 9682 9684 9685 9695 9698 9712 
9738 9741 9768 3781 9797 9816 27 «=6—9858 ~=Sss(«é9B62Ssi‘é‘éi71—iéiBB?]iC9BBS = 9BBS6 98929894 
9896 9898 919 9979 10018 10020 10023 10048 10081 10120 10124 10128 10161 10185 
10191 10199 10214 10275 10228 10247 10278 10285 10294 10308 10343 10406 10411 10454 10496 
98 10508 10544 10247 10560 10565 105 10569 10570 10578 10581 10622 10661 10663 10665 
| 10670 10681 10687 10710 10735 10755 10773 10774 10820 10841 10842 10845 10855 10862 
| 10869 10870 10898 
$$SETT 58308 
S$SKIP 17464 88484 9085 9146 9383 9459 9520 9543 9594 9645 6 6 6 703 ©9719 
9742 9775 9790 804 824 9859 9923 9980 10162 10219 10249 10287 10297 
10311 10344 10418 10545 10548 1058 
.EQUAT 189% 79598 884 
“HE ADE 614 79584 8845 
SINIT 565 8484 10956 
“SETUP = 121 9584 
“SWRHI 104% 79598 8846 
;SWRLO 88464 
s 1 5064# 79604 
"SAPTB 65109# 79608 89714 
“$APTH O# 7960" 8970 


-SCATC 9324 79584 8965 
‘wate bor 44 79584 8971 
-$0B20 48124 
-$DIV 4587# 
- SEOP 22144 79584 10927 
-SERRO 27 79594 
-SERRT 28964 
. T 45234 
42298 7959# 10930 

-SRAND 4307# 
-SRODE 38914 
~SRDOC 3797" 
-SREAD 3395# 79584 10936 
~$R2AZ 949584 
-SSAVE 396 
-$SB2D 47714 

S$B20 48744 


"SSCOP 62454# 7959" 10945 
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MAINDEC=11=CNDVC=A MACY11 30(1046) 27=DEC-82 11:37 PAGE 197-9 
‘gona P11 27-DEC=82 11:36 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0135 


| SSUPR 49138 
{STRAP §64073# ©7959" 10954 


\.$TYPD 3209" 79594 10948 
| STYPE 985¢ 79584 10933 
$TY 79608 


-$40CA 9728 
- ABS. 014472 000 


ERRORS DETECTED: 0 
CNDVCA, CNDVCA/CRF /NL : TOC=CNMAC2.SML.CNMAC .MAC,CNDVCA.P11 
RUN-TIME: 75 78 4 SECONDS 


RUN-TIME RATIO: 235/158=1.4 
CORE USED: 43K (86 PAGES) 
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